File Coverage

blib/lib/Class/Error.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	34	34	100.0

package Class::Error ;
$VERSION = 2.40 ;
use strict ;

# This file uses the "Perlish" coding style
# please read http://perl.4pro.net/perlish_coding_style.html

; use Carp
; $Carp::Internal{+__PACKAGE__}++

; use overload bool     => sub { $_[0][2] }
             , fallback => 1

; sub new     # class, error, errnum, false
   { my $c = shift
   ; $_[2] and croak "'$_[2]' is not a false value, died"
   ; ($Class::Error::error, $Class::Error::errnum) = @_
   ; bless \ @_, $c
   }

; sub error  { ref $_[0] ? $_[0][0] : $Class::Error::error }
; sub errnum { ref $_[0] ? $_[0][1] : $Class::Error::errnum }

; sub AUTOLOAD { $_[0] }

; 1

__END__