File Coverage

lib/Data/Validation/Utils.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	3	4	100.0
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	52	53	100.0

package Data::Validation::Utils;

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

use Data::Validation::Constants qw( EXCEPTION_CLASS TRUE );
use Module::Runtime             qw( require_module );
use Try::Tiny;
use Unexpected::Functions       qw( is_class_loaded );

our @EXPORT_OK = qw( ensure_class_loaded load_class throw );

sub ensure_class_loaded ($) {
   my $class = shift;

   try { require_module( $class ) } catch { throw( $_ ) };

   # uncoverable branch true
   is_class_loaded( $class )
      or throw( 'Class [_1] loaded but package undefined', [ $class ] );

   return TRUE;
}

sub load_class ($$$) {
   my ($proto, $prefix, $class) = @_; $class =~ s{ \A $prefix }{}mx;

   if ('+' eq substr $class, 0, 1) { $class = substr $class, 1 }
   else { $class = "${proto}::".(ucfirst $class) }

   ensure_class_loaded $class;

   return $class;
}

sub throw (;@) {
   EXCEPTION_CLASS->throw( @_ );
}

1;

__END__