File Coverage

blib/lib/OOP/Constructor.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	2	6	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	21	26	80.7

package OOP::Constructor;

use strict;
use Carp;
use OOP::_getArgs;

sub set_args {

 my ($self, $ARGS) = @_;

 my $arguments = $ARGS->{ARGS} || croak "No arguments were passed to the prototype!";
 my $prototype = $ARGS->{PROTOTYPE} || croak "No prototype was passed to the prototype!";

 my %test;

 tie(%test, 'OOP::_getArgs', {
                             ARGS => $arguments,
                             PROTOTYPE => $prototype
               	            });

 return \%test;

}

1;