Select Code to Download

sub is_a {
    croak "is_a() expects a package name"
...
        return (ref $_[0] eq $type) ? 1:0;
    };
}

use Scalar::Util qw( blessed );

...
        );
    };
}