Help for this page

Select Code to Download


  1. or download this
               sub try (&@) {
               my($try,$catch) = @_;
...
           } catch {
               /phooey/ and print "unphooey\n";
           };
  2. or download this
    package Exception;

...
}

return 1;
  3. or download this
    
#!/usr/bin/perl
...
print "\n";
print "Done testing logic!\n";