Help for this page

Select Code to Download


  1. or download this
    package MyError::SomeError.pm;

...
@ISA = qw(Error::Simple);

1;
  2. or download this
    #!/usr/bin/perl -w

...
} catch MyError::SomeError with {
  print "Caught it\n";
};
  3. or download this
    Can't locate MyErrors/SomeError.pm in @INC (@INC contains: /usr/lib/pe
+rl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5
+/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8
+.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-lin
+ux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendo
+r_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.
+8.0) at MyError/SomeError.pm line3.
BEGIN failed--compilation aborted at MyError/SomeError.pm line3.
BEGIN failed--compilation aborted at ./test.pl line 4.