Help for this page

Select Code to Download


  1. or download this
    UNIVERSAL::isa($object_of_my_class, "IO::File")
  2. or download this
    *UNIVERSAL::old_isa = *UNIVERSAL::isa;
*UNIVERSAL::isa = sub {
    my($self,$pkg) = @_;
...

my $rc = UNIVERSAL::isa($object_of_myclass, 'IO::Handle');
print $rc ? "It worked\n" : "Oh nuts\n";