File Coverage

blib/lib/PDF/Labels/base.pm

Criterion	Covered	Total	%
statement	3	10	30.0
branch	0	8	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	21	19.0

package PDF::Labels::base;
use strict;


sub new {

    my $class = ref($_[0]) ? ref(shift) : shift;
    my $opts = ref($_[0]) ? $_[0] : {@_};

    my $self = bless {}, $class;

    map {
		UNIVERSAL::can( $self, $_ ) ?
			$self->$_( $opts->{$_} )
			: $self->{$_}=$opts->{$_};
	} keys %$opts;

    $self->_new if UNIVERSAL::can($self, "_new");

    return $self;

}


1;