use Carp::Clan instead of warn

diff --git a/dist.ini b/dist.ini
index d98cf8399e71fc594866050399acf92460bfdec8..03ff85e05beca59fb92c1fbaed8fa443a26b0606 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -40,6 +40,7 @@ DateTime  = 0
 DBD::SQLite = 1.21
 Readonly = 1.03
 List::MoreUtils = 0.22
+Carp::Clan = 6.04
 
 [Prereqs / TestRequires]
 Test::More = 0.88

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index 6594748e721544db60aa244af7541f3d4599bcb0..4e4c370ea4c972b900660cc90938b1aa9b2e2845 100644 (file)
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -34,7 +34,7 @@ sub recursive_update {
 }
 
 package DBIx::Class::ResultSet::RecursiveUpdate::Functions;
-use Carp;
+use Carp::Clan;
 use Scalar::Util qw( blessed );
 use List::MoreUtils qw/ any /;
 
@@ -145,7 +145,7 @@ sub recursive_update {
 
         # don't throw a warning instead of an exception to give users
         # time to adapt to the new API
-        warn(
+        carp(
             "No such column, relationship, many-to-many helper accessor or generic accessor '$name'"
         ) unless $unknown_params_ok;
 

diff --git a/t/lib/RunTests.pm b/t/lib/RunTests.pm
index 7121ed27add86d4f6c6a1bfc5634582d63c63af0..3dba310caf704abd9953ca0f6d6545f9c5edca3a 100644 (file)
--- a/t/lib/RunTests.pm
+++ b/t/lib/RunTests.pm
@@ -59,10 +59,10 @@ sub run_tests {
 # qr/No such column, relationship, many-to-many helper accessor or generic accessor 'nonexisting'/,
 # 'nonexisting column, accessor, relationship fails'
 # );
-    warning_is {
+    warning_like {
         my $user = $user_rs->recursive_update($updates);
     }
-    "No such column, relationship, many-to-many helper accessor or generic accessor 'nonexisting'",
+    qr/No such column, relationship, many-to-many helper accessor or generic accessor 'nonexisting'/,
         'nonexisting column, accessor, relationship warns';
     $expected_user_count++;
     is( $user_rs->count, $expected_user_count, 'User created' );