1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../../";
use t::scan::Util;
test(<<'TEST'); # perlref
$sref->$*; # same as ${ $sref }
$aref->@*; # same as @{ $aref }
$aref->$#*; # same as $#{ $aref }
$href->%*; # same as %{ $href }
$cref->&*; # same as &{ $cref }
$gref->**; # same as *{ $gref }
$gref->*{SCALAR}; # same as *{ $gref }{SCALAR}
$aref->@[ ... ]; # same as @$aref[ ... ]
$href->@{ ... }; # same as @$href{ ... }
$aref->%[ ... ]; # same as %$aref[ ... ]
$href->%{ ... }; # same as %$href{ ... }
TEST
test(<<'TEST');
$aref->@[ qw(foo) ];
$href->@{ qw(foo) };
$aref->%[ qw(foo) ];
$href->%{ qw(foo) };
TEST
test(<<'TEST'); # CVLIBRARY/WebDriver-Tiny-0.006/lib/WebDriver/Tiny/Elements.pm
sub append { bless [ shift->@*, map @$_[ 1.. $#$_ ], @_ ] }
sub first { bless [ $_[0]->@[ 0, 1 ] ] }
sub last { bless [ $_[0]->@[ 0, -1 ] ] }
sub size { $#{ $_[0] } }
sub slice { my ( $drv, @ids ) = shift->@*; bless [ $drv, @ids[@_] ] }
sub split { my ( $drv, @ids ) = $_[0]->@*; map { bless [ $drv, $_ ] } @ids }
TEST
test(<<'TEST'); # CPAN-Testers-Schema-0.023/lib/CPAN/Testers/Schema/ResultSet/Stats.pm
die $LOG->error(
sprintf 'No upload matches for dist %s version %s (report %s)',
$data->{distribution}->@{qw( name version )}, $guid,
);
TEST
done_testing;
|
