File Coverage

lib/Data/Validation/Constants.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	29	29	100.0

package Data::Validation::Constants;

use strict;
use warnings;
use parent 'Exporter::Tiny';

use Data::Validation::Exception;

our @EXPORT = qw( EXCEPTION_CLASS FALSE HASH NUL SPC TRUE );

my $Exception_Class = 'Data::Validation::Exception';

sub EXCEPTION_CLASS () { __PACKAGE__->Exception_Class }
sub FALSE           () { 0      }
sub HASH            () { 'HASH' }
sub NUL             () { q()    }
sub SPC             () { q( )   }
sub TRUE            () { 1      }

sub Exception_Class {
   my ($self, $class) = @_; defined $class or return $Exception_Class;

   $class->can( 'throw' )
      or die "Class '${class}' is not loaded or has no 'throw' method";

   return $Exception_Class = $class;
}

1;

__END__