Select Code to Download

package Foo::Exceptions;
use strict;
...
        # etc.

);

Foo::Exception::DBI->throw($DBI::errstr)
Foo::Exception::Dupe->throw(name => $name, error => $value);

eval {$foo->something_that_might_die};
if (ref($@)) {
...
    };
};
die $@ if $@;