Help for this page

Select Code to Download


  1. or download this
    if( ref( $obj ) eq $type ) { ... 
## or
if( $obj =~ m[=$type$] ) { ...
  2. or download this
    if( ref( $exception ) eq $type )
or grep{ ref( $exception ) eq $_ } @{ $type::ISA } ) {  ...
## or
if( $exception =~ m[=$type$]
or grep{ $exception =~ m[=$_] } @{ $type::ISA } ) {  ...
  3. or download this
    use Exception::Class (
    'MyException',
...
        isa => 'MyException'
    },