@@ -28,8 +28,8 @@ XSLoader::load(__PACKAGE__, $VERSION); use namespace::clean; use Sub::Exporter -setup => { - exports => [qw/try/], - groups => { default => [qw/try/] }, + exports => [qw/try throw/], + groups => { default => [qw/try throw/] }, installer => sub { my ($args, $to_export) = @_; my $pack = $args->{into}; @@ -53,6 +53,10 @@ sub try () { return; } +sub throw { + die ( $TryCatch::Exception = shift ); +} + # Where we store all the TCs for catch blocks created at compile time # Not sure we really want to do this, but we will for now. our $TC_LIBRARY = {}; @@ -116,7 +120,7 @@ sub injected_try_code { sub injected_after_try { # This semicolon is for the end of the eval - return ';$TryCatch::Error = $@; } if ($TryCatch::Error) { '; + return ';$TryCatch::Error = $@ || $TryCatch::Exception; } if ($TryCatch::Error) { '; } sub injected_no_catch_code { @@ -303,7 +307,7 @@ TryCatch - first class try catch semantics for Perl, without source filters. my ($self) = @_; try { - die Some::Class->new(code => 404 ) if $self->not_found; + throw Some::Class->new(code => 404 ) if $self->not_found; return "return value from foo"; } catch (Some::Class $e where { $_->code > 100 } ) { lib/TryCatch.pm 27eddead07dd2a14b05bbcc453c85329a081f11f pmakholm peter@makholm.net http://github.com/pmakholm/trycatch/commit/e24964bc2f6a938004b8c5b97ffd9278c7fc5830 e24964bc2f6a938004b8c5b97ffd9278c7fc5830 2009-05-22T01:09:27-07:00 2009-05-22T01:09:27-07:00 Handle garbage collectors resetting $@ by wrapping die in a throw sub (rt #46294) 85ca7bc10625d78761a8e5d49c2792a3ca2cc05c pmakholm peter@makholm.net