File Coverage

blib/lib/Text/MicroMason/CatchErrors.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	23	24	95.8

package Text::MicroMason::CatchErrors;

use strict;
use Carp;

######################################################################

# sub defaults {
#   (shift)->NEXT('assembler_rules'), error_string => 1
# }

sub compile {
  my $result = eval { local $SIG{__DIE__}; (shift)->NEXT('compile', @_) };
  wantarray ? ($result, $@) : $result;
}

sub execute {
  my $result = eval { local $SIG{__DIE__}; (shift)->NEXT('execute', @_) };
  wantarray ? ($result, $@) : $result;
}

######################################################################

1;

__END__