From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Sat, 23 Oct 2010 09:39:34 +0000 (+0200)
Subject: use Carp::Clan instead of warn
X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate;a=commitdiff_plain;h=75bcf6b8626125cd29e1bb4846022f9de080bd70;ds=sidebyside

use Carp::Clan instead of warn
---

diff --git a/dist.ini b/dist.ini
index d98cf83..03ff85e 100644
--- 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 6594748..4e4c370 100644
--- 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 7121ed2..3dba310 100644
--- 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' );