Changeset 18370 for lang/perl/DBIx-Printf

Timestamp:

08/28/08 11:59:19 (5 years ago)

Author:

zigorou

Message:

Change to Carp::Clan::croak from die

Location:

lang/perl/DBIx-Printf/trunk

Files:

• . (modified) (1 prop)
• Changes (modified) (1 diff)
• MANIFEST.SKIP (added)
• Makefile.PL (modified) (1 diff)
• lib/DBIx/Printf.pm (modified) (6 diffs)

lang/perl/DBIx-Printf/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension DBIx::Printf.
+
+0.07  Thu Aug 28 11:44:15 2008
+        - Change to Carp::Clan::croak from die.
 
 0.06  Thu Dec 20 18:08:42 2007

lang/perl/DBIx-Printf/trunk/Makefile.PL

@@ -8 +8 @@
 
 requires('DBI');
+requires('Carp::Clan');
 
 build_requires('DBD::Mock');

lang/perl/DBIx-Printf/trunk/lib/DBIx/Printf.pm

@@ -3 +3 @@
 
 use DBI;
+use Carp::Clan;
 
 package main;
@@ -10 +11 @@
     
     my $sql = DBIx::Printf::_printf($dbh, $fmt, \@params);
-    die "too many parameters\n" if @params;
+    Carp::Clan::croak "too many parameters\n" if @params;
     $sql;
 }
@@ -16 +17 @@
 package DBIx::Printf;
 
-our $VERSION = 0.06;
+our $VERSION = 0.07;
 
 sub _printf {
@@ -54 +55 @@
     my ($dbh, $type, $params, $in_like) = @_;
     
-    die "too few parameters\n" unless @$params;
+    Carp::Clan::croak "too few parameters\n" unless @$params;
     my $param = shift @$params;
     
@@ -65 +66 @@
         $param = $dbh->quote($param); # be paranoiac, use DBI::db::quote
         $param =~ s/^'(.*)'$/$1/s
-            or die "unexpected quote char used: $param\n";
+            or Carp::Clan::croak "unexpected quote char used: $param\n";
     } elsif ($type eq 's') {
         if ($in_like) {
@@ -73 +74 @@
         if ($in_like) {
             $param =~ s/^'(.*)'$/$1/s
-                or die "unexpected quote char: $param\n";
+                or Carp::Clan::croak "unexpected quote char: $param\n";
         }
     } elsif ($type eq 't') {
         # pass thru
     } else {
-        die "unexpected type: $type\n";
+        Carp::Clan::croak "unexpected type: $type\n";
     }