Merge 5041f8f into 2c98813

cpanfile

@@ -3,6 +3,7 @@
 requires 'perl', '5.008005';
 requires 'strict';
 requires 'warnings';
+requires 'Carp';
 requires 'Test::Builder::Module';
 requires 'Test::Name::FromLine';
 requires 'Text::MatchedPosition';

lib/Test/Arrow.pm

@@ -1,6 +1,7 @@
 package Test::Arrow;
 use strict;
 use warnings;
+use Carp qw/croak/;
 use Test::Builder::Module;
 use Test::Name::FromLine;
 use Text::MatchedPosition;
@@ -28,7 +29,7 @@ sub import {
     $pkg->_import_option_binary(\%args);
 
     if (scalar(keys %args) > 0) {
-        die "Wrong option: " . join(", ", keys %args);
+        croak "Wrong option: " . join(", ", keys %args);
     }
 
     if ($] < 5.014000) {
@@ -158,7 +159,7 @@ sub expected {
     my $arg_count = scalar(@_) - 1;
 
     if ($arg_count > 1) {
-        die "'expected' method expects just only one arg. You passed $arg_count args.";
+        croak "'expected' method expects just only one arg. You passed $arg_count args.";
     }
 
     $self->{_expected} = $value;
@@ -172,7 +173,7 @@ sub got {
     my $arg_count = scalar(@_) - 1;
 
     if ($arg_count > 1) {
-        die "'got' method expects just only one arg. You passed $arg_count args.";
+        croak "'got' method expects just only one arg. You passed $arg_count args.";
     }
 
     $self->{_got} = $value;
@@ -382,7 +383,7 @@ sub isa_ok {
     my ($result, $error) = _tb->_try(sub { $got->isa($expected) });
 
     if ($error) {
-        die <<WHOA unless $error =~ /^Can't (locate|call) method "isa"/;
+        croak <<WHOA unless $error =~ /^Can't (locate|call) method "isa"/;
 WHOA! I tried to call ->isa on your $whatami and got some weird error.
 Here's the error.
 $error
@@ -442,7 +443,7 @@ sub _get_isa_diag_name {
         $diag = "$test_name isn't a '$expected'";
     }
     else {
-        die;
+        croak;
     }
 
     return($diag, $name);
@@ -464,7 +465,7 @@ sub throw {
     my $self = shift;
     my $code = shift;
 
-    die 'The `throw` method expects code ref.' unless ref $code eq 'CODE';
+    croak 'The `throw` method expects code ref.' unless ref $code eq 'CODE';
 
     eval { $code->() };
 
@@ -523,7 +524,7 @@ sub warnings_ok {
 sub warnings {
     my ($self, $code, $regex, $name) = @_;
 
-    die 'The `warn` method expects code ref.' unless ref $code eq 'CODE';
+    croak 'The `warn` method expects code ref.' unless ref $code eq 'CODE';
 
     my @warns;
     eval {
@@ -678,7 +679,7 @@ sub __deep_check_type {
         $ok = FAIL;
     }
     else {
-        die <<_WHOA_;
+        croak <<_WHOA_;
 WHOA!  No type in _deep_check
 This should never happen!  Please contact the author immediately!
 _WHOA_