File Coverage

lib/IPC/SRLock/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 IPC::SRLock::Constants;

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

use File::DataClass::Exception;

our @EXPORT_OK = qw( EXCEPTION_CLASS );

my $_exception_class = 'File::DataClass::Exception';

sub EXCEPTION_CLASS () { __PACKAGE__->Exception_Class }

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__