File Coverage

blib/lib/PICA/Modification/Queue.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	2	0.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	37	56.7

package PICA::Modification::Queue;
{
  $PICA::Modification::Queue::VERSION = '0.16';
}
#ABSTRACT: Queued list of modification requests of PICA+ records

use strict;
use warnings;
use v5.10;

use Carp;
use Scalar::Util qw(reftype);

sub new {
    my $class = shift;
    my $name  = shift || 'hash';

    if ('HASH' ~~ reftype($name)) {
        my $args = $name;
        $name = delete $name->{type};
        return $class->new( $name, %$args );
    }

    $class = $class . '::' . ucfirst($name);

    my $file = $class;
    $file =~ s!::!/!g;
    require "$file.pm"; ## no critic

    $class->new( @_ );
}

1;



__END__