| /openbsd-current/gnu/usr.bin/perl/dist/Data-Dumper/t/ |
| H A D | recurse.t | 25 is(eval { Dumper([]) }, '$VAR1 = [];', "$pp: maxrecurse 1, []");
28 is(eval { Dumper({}) }, '$VAR1 = {};', "$pp: maxrecurse 1, {}");
29 is(eval { Dumper({ a => 1 }) }, q($VAR1 = {'a' => 1};),
33 is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 1, \\1");
37 is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 3, \\1");
38 is(eval { Dumper(\(my $s = {})) }, "\$VAR1 = \\{};", "$pp: maxrecurse 3, \\{}");
39 is(eval { Dumper(\(my $s = { a => [] })) }, "\$VAR1 = \\{'a' => []};",
45 is(eval { Dumper([[[[[]]]]]) }, q($VAR1 = [[[[[]]]]];),
|
| H A D | quotekeys.t | 105 ? q($VAR1 = {'0' => 1,'012345' => 1,'12' => 1,'123456789' => 1,'1234567890' => 1,"1\x{660}" => 1,'::de::fg' => 1,'ab' => 1,'hi::12' => 1};)
106 : q($VAR1 = {'::de::fg' => 1,'ab' => 1,'hi::12' => 1,'0' => 1,'012345' => 1,'12' => 1,'123456789' => 1,'1234567890' => 1,"1\x{660}" => 1};)),
113 ? q($VAR1 = {"0" => 1,"012345" => 1,"12" => 1,"123456789" => 1,"1234567890" => 1,"1\x{660}" => 1,"::de::fg" => 1,"ab" => 1,"hi::12" => 1};)
114 : q($VAR1 = {"::de::fg" => 1,"ab" => 1,"hi::12" => 1,"0" => 1,"012345" => 1,"12" => 1,"123456789" => 1,"1234567890" => 1,"1\x{660}" => 1};)),
122 ? q($VAR1 = {0 => 1,'012345' => 1,12 => 1,123456789 => 1,'1234567890' => 1,"1\x{660}" => 1,'::de::fg' => 1,ab => 1,'hi::12' => 1};)
123 : q($VAR1 = {'::de::fg' => 1,ab => 1,'hi::12' => 1,0 => 1,'012345' => 1,12 => 1,123456789 => 1,'1234567890' => 1,"1\x{660}" => 1};)),
129 ? q($VAR1 = {0 => 1,"012345" => 1,12 => 1,123456789 => 1,"1234567890" => 1,"1\x{660}" => 1,"::de::fg" => 1,ab => 1,"hi::12" => 1};)
130 : q($VAR1 = {"::de::fg" => 1,ab => 1,"hi::12" => 1,0 => 1,"012345" => 1,12 => 1,123456789 => 1,"1234567890" => 1,"1\x{660}" => 1};)),
|
| H A D | bless.t | 32 $VAR1 = bless( {}, 'a\'b' );
44 $VAR1 = bless( {}, 'a\\' );
58 $VAR1 = bless( qr//, 'foo' );
60 $VAR1 = bless( qr/(?-xism:)/, 'foo' );
|
| H A D | bugs.t | 47 my $VAR1;
49 is_deeply($VAR1, \%h, '[perl #40668] Reset hash iterator');
62 my $VAR1;
64 is_deeply($VAR1, $a, '[perl #64744] Reset hash iterator');
101 my $VAR1;
106 # strict vars test (involving $VAR1). Mentioning the glob beforehand
127 my $VAR1;
|
| H A D | dumpperl.t | 56 qr/\$VAR1.+alpha.+\$VAR2.+beta/s,
63 qr/\$VAR1.+alpha.+\$VAR2.+\[.+eta.+theta.+\]/s,
70 qr/\$VAR1.+alpha.+\$VAR2.+\{.+iota.+kappa.+\}/s,
77 qr/\$VAR1.+alpha.+\$VAR2.+undef/s,
|
| H A D | trailing_comma.t | 105 is($got, "\$VAR1 = $output;", "$desc (in $mode mode)");
|
| H A D | freezer_useperl.t | 27 like(join(" ", Dumper($foo)), qr/\A\$VAR1 = /,
|
| H A D | freezer.t | 25 like(join(" ", Dumper($foo)), qr/\A\$VAR1 = /,
|
| H A D | dumper.t | 343 #$VAR1 = [
354 #$VAR1->[1]{'a'} = $VAR1;
355 #$VAR1->[1]{'b'} = $VAR1->[1];
356 #$VAR1->[2] = $VAR1->[1]{'c'};
369 # a => $VAR1,
370 # b => $VAR1->[1],
375 # $VAR1
[all...] |
| /openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | freeze.t | 85 $VAR1 = [
93 $x = nfreeze($VAR1);
95 is($VAR2->[3], $VAR1->[3]);
|
| /openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
| H A D | Kwalify.pm | 51 use vars qw($VERSION $VAR1);
86 $VAR1 = undef;
91 $schema_loaded->{$schema_name} = $VAR1;
|
| /openbsd-current/gnu/usr.bin/perl/cpan/JSON-PP/bin/ |
| H A D | json_pp | 199 $VAR1 = {
215 $VAR1 = {
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
| H A D | LinkSection.pm | 104 $VAR1 = bless( [
124 $VAR1 = 'barbaz';
|
| H A D | SimpleTree.pm | 78 $VAR1 = [
|
| /openbsd-current/gnu/usr.bin/perl/t/porting/ |
| H A D | header_parser.t | 48 $VAR1 = [
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Tie-RefHash/t/ |
| H A D | refhash.t | 168 $d =~ s/^\$VAR1 =\s*//;
|
| /openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/ |
| H A D | CPAN.pm | 2566 defining C<$VAR1>, C<$VAR2>, etc. The YAML shell would produce these
|