]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Only load Carp on error
authorVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 14:18:36 +0000 (15:18 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 3 Jan 2011 14:18:36 +0000 (15:18 +0100)
lib/Lexical/Types.pm

index a8be1c4bb72b1582ce61f005879896803a5493fb..026596f7ca9c59dcbf27a158e68f8d70d5424f48 100644 (file)
@@ -5,8 +5,6 @@ use 5.008001;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
-
 =head1 NAME
 
 Lexical::Types - Extend the semantics of typed lexicals.
@@ -152,7 +150,8 @@ sub import {
    $as .= '::' if $as !~ /::$/;
    $hint = _tag(sub { $as . $_[0] });
   } else {
-   croak "Invalid $r reference for 'as'";
+   require Carp;
+   Carp::croak("Invalid $r reference for 'as'");
   }
  } else {
   $hint = _tag(sub { @_ });