File Coverage

lib/Web/ComposableRequest/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 Web::ComposableRequest::Constants;

use strictures;
use parent 'Exporter::Tiny';

use Web::ComposableRequest::Exception;
use Role::Tiny ();

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

my $Exception_Class = 'Web::ComposableRequest::Exception';

sub FALSE () { 0    }
sub LANG  () { 'en' }
sub NUL   () { q()  }
sub TRUE  () { 1    }

sub EXCEPTION_CLASS () { __PACKAGE__->Exception_Class }

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

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

   return $Exception_Class = $class;
}

1;

__END__