File Coverage

blib/lib/Class/Date/Invalid.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	0	4	0.0
condition			n/a
subroutine	8	11	72.7
pod	0	6	0.0
total	25	41	60.9

package Class::Date::Invalid;
use strict;
use warnings;

use Class::Date::Const;

our $VERSION = '1.1.15';

use overload
  '0+'     => "zero",
  '""'     => "empty",
  '<=>'    => "compare",
  'cmp'    => "compare",
  '+'      => "zero",
  '!'      => "true",
  fallback => 1;

sub empty { "" }
sub zero { 0 }
sub true { 1 }

sub compare { return ($_[1] ? 1 : 0) * ($_[2] ? -1 : 1) }

sub error { shift->[ci_error]; }

sub errmsg { my ($s) = @_;
    sprintf $ERROR_MESSAGES[ $s->[ci_error] ]."\n", $s->[ci_errmsg]
}
*errstr = *errmsg;

sub AUTOLOAD { undef }

1;