Lines Matching full:foo*
288 # at this depth (i.e., 'Foo=ARRAY(0xdeadbeef)').
323 # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
343 # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
664 print Dumper($foo, $bar);
667 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
672 eval Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
676 $d = Data::Dumper->new([$foo, $bar], [qw(foo *ary)]);
1013 package Foo;
1014 sub new {bless {'a' => 1, 'b' => sub { return "foo" }}, $_[0]};
1020 $foo = Foo->new;
1022 $boo = [ 1, [], "abcd", \*foo,
1024 \\"p\q\'r", $foo, $fuz];
1109 package Foo;
1115 return bless $s, 'Foo::ZZZ';
1118 package Foo::ZZZ;
1123 return bless $s, 'Foo';
1126 package Foo;
1128 $a = Foo->new;
1142 sub foo { print "foo speaking\n" }
1143 *other = \&foo;
1146 $d->Seen({ '*foo' => \&foo });
1155 my $foo = { map { (ord, "$_$_$_") } 'I'..'Q' };
1156 my $bar = { %$foo };
1157 my $baz = { reverse %$foo };
1158 print Dumper [ $foo, $bar, $baz ];
1165 # Sort the keys of %$foo in reverse numeric order
1166 $hash eq $foo ? (sort {$b <=> $a} keys %$hash) :