Searched refs:Human (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Duniversal.t19 package Human; package
23 @ISA=qw(Human);
36 use base qw(Human);
69 test $a->isa("Human");
87 test (Cedric->isa('Human'));
180 "Human" =~ /(.*)/;
181 test $1->isa("Human");
185 sub FETCH { "Human" }
187 ::test $x->isa("Human");

Completed in 19 milliseconds