use throw; # Trait $, = "\n"; my $main = bless{}; try{ $main->throw('MyExClass',"Invalid!"); } catch{ my $exa = $main->caught('MyExClass'); print $exa->error, $exa->trace; };