This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
overloading.pm: Load Carp on demand
authorFather Chrysostomos <sprout@cpan.org>
Wed, 18 Jan 2012 18:58:19 +0000 (10:58 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 18 Jan 2012 18:58:19 +0000 (10:58 -0800)
lib/overloading.pm

index d1ca566..a10858c 100644 (file)
@@ -1,8 +1,6 @@
 package overloading;
 use warnings;
 
-use Carp ();
-
 our $VERSION = '0.01';
 
 my $HINT_NO_AMAGIC = 0x01000000; # see perl.h
@@ -14,7 +12,7 @@ sub _ops_to_nums {
 
     map { exists $overload::numbers::names{"($_"}
        ? $overload::numbers::names{"($_"}
-       : Carp::croak("'$_' is not a valid overload")
+       : do { require Carp; Carp::croak("'$_' is not a valid overload") }
     } @_;
 }