X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=78277993148f9ea62027e05f3db7a13bc749089b;hp=be07d803840ff18aaca757632744a7a58c0f77a6;hb=823419c540f9e77090f31f11e04b14477c0372c4;hpb=4cc4f8ed10b2e831b9917b94fdad6e4cdddf9997 diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index be07d80..7827799 100755 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -309,19 +309,6 @@ sub DESTROY{ return; } -sub throw_error{ - my($self, $message, %args) = @_; - - local $Carp::CarpLevel = $Carp::CarpLevel + 1 + ($args{depth} || 0); - local $Carp::MaxArgNums = 20; # default is 8, usually we use named args which gets messier though - - if(exists $args{longmess} && !$args{longmess}){ # intentionaly longmess => 0 - Carp::croak($message); - } - else{ - Carp::confess($message); - } -} 1; __END__