Searched defs:Symtable (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Db.t21 package Testing::Symtable;
29 package Testing::Symtable::Foo;
32 package Testing::Symtable::Bar;
38 B::walksymtable(\%Testing::Symtable::, 'find_syms', sub { $_[0] =~ /Foo/ },
39 'Testing::Symtable::');
47 my @syms = map { 'Testing::Symtable::'.$_ } qw(This That wibble moo car
49 push @syms, "Testing::Symtable::Foo::yarrow";

Completed in 20 milliseconds