Lines Matching full:foo*
289 $foo = { "abc\000\'\efg" => "mno\000",
294 TEST q(Dumper($foo));
306 TEST q(Data::Dumper::DumperX($foo)) if $XS; # cheat
317 $foo = 5;
318 @foo = (-10,\*foo);
319 %foo = (a=>1,b=>\$foo,c=>\@foo);
320 $foo{d} = \%foo;
321 $foo[2] = \%foo;
326 #$foo = \*::foo;
327 #*::foo = \5;
328 #*::foo = [
341 #*::foo{ARRAY}->[1] = $foo;
342 #*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
343 #*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
344 #*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
345 #*::foo = *::foo{ARRAY}->[2];
346 #@bar = @{*::foo{ARRAY}};
347 #%baz = %{*::foo{ARRAY}->[2]};
352 TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz']));
353 TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz'])) if $XS;
358 #$foo = \*::foo;
359 #*::foo = \5;
360 #*::foo = [
370 #*::foo{ARRAY}->[1] = $foo;
371 #*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
372 #*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
373 #*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
374 #*::foo = *::foo{ARRAY}->[2];
375 #$bar = *::foo{ARRAY};
376 #$baz = *::foo{ARRAY}->[2];
380 TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz']));
381 TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz'])) if $XS;
388 # \*::foo,
391 #*::foo = \5;
392 #*::foo = \@bar;
393 #*::foo = {
399 #*::foo{HASH}->{'b'} = *::foo{SCALAR};
400 #*::foo{HASH}->{'c'} = \@bar;
401 #*::foo{HASH}->{'d'} = *::foo{HASH};
402 #$bar[2] = *::foo{HASH};
403 #%baz = %{*::foo{HASH}};
404 #$foo = $bar[1];
407 TEST q(Data::Dumper->Dump([\\@foo, \\%foo, \\*foo], ['*bar', '*baz', '*foo']));
408 TEST q(Data::Dumper->Dumpxs([\\@foo, \\%foo, \\*foo], ['*bar', '*baz', '*foo'])) if $XS;
415 # \*::foo,
418 #*::foo = \5;
419 #*::foo = $bar;
420 #*::foo = {
426 #*::foo{HASH}->{'b'} = *::foo{SCALAR};
427 #*::foo{HASH}->{'c'} = $bar;
428 #*::foo{HASH}->{'d'} = *::foo{HASH};
429 #$bar->[2] = *::foo{HASH};
430 #$baz = *::foo{HASH};
431 #$foo = $bar->[1];
434 TEST q(Data::Dumper->Dump([\\@foo, \\%foo, \\*foo], ['bar', 'baz', 'foo']));
435 TEST q(Data::Dumper->Dumpxs([\\@foo, \\%foo, \\*foo], ['bar', 'baz', 'foo'])) if $XS;
440 #$foo = \*::foo;
443 # $foo,
456 TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz']));
457 TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['*foo', '*bar', '*baz'])) if $XS;
462 #$foo = \*::foo;
465 # $foo,
476 TEST q(Data::Dumper->Dump([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz']));
477 TEST q(Data::Dumper->Dumpxs([\\*foo, \\@foo, \\%foo], ['foo', 'bar', 'baz'])) if $XS;
618 sub z { print "foo\n" }
682 $a = \\\\\'foo';
688 #$a = \\\\\'foo';
730 $a = [[[[\\\\\'foo']]]];
741 # \\\\\'foo'
962 # foo => sub {
963 # print 'foo';
968 TEST q(Data::Dumper->new([{ foo => sub { print "foo"; } }])->Dump);
1369 %foo = ($k => 'rocks');
1371 TEST q(Data::Dumper->Dump([\\%foo])), "quotekeys == 0 for utf8 flagged ASCII";
1372 TEST q(Data::Dumper->Dumpxs([\\%foo])),
1384 @foo = ();
1385 $foo[2] = 1;
1386 TEST q(Data::Dumper->Dump([\@foo])), 'Richard Clamp, Message-Id: <20030104005247.GA27685@mirth.demon.co.uk>';
1387 TEST q(Data::Dumper->Dumpxs([\@foo])) if $XS;