Lines Matching full:foo*
490 my @foo = qw( a b c d e f );
491 my %pre = map { $_ => } @foo;
493 File::Find::find( sub { } , 'fa' ) for @foo;
494 delete $pre{$_} for @foo;
512 package Foo;
521 my @foo = 'n';
522 tie $foo[0], "Foo";
524 File::Find::find( sub { $true_count++; $_{$_}++; &_; } , 'fa' ) for @foo;
530 Check( scalar( @foo ) == 1);
531 Check( $foo[0] eq 'N' );