File Coverage

blib/lib/ESPPlus/Storage/Util.pm

Criterion	Covered	Total	%
statement	45	47	95.7
branch	12	16	75.0
condition			n/a
subroutine	18	19	94.7
pod	10	11	90.9
total	85	93	91.4

package ESPPlus::Storage::Util;
use 5.006;
use strict;
use warnings;
use Carp 'confess';

use base 'Exporter';
use vars '@EXPORT';

@EXPORT = 'attribute_builder';

sub attribute_builder {
    my $method_base = shift;
    my $read_only   = shift;

    my $package = caller;
    my $method_full = $package . '::' . $method_base;

    {
	no warnings 'redefine';
	if ( $read_only ) {
	    eval qq[
		    sub $method_full {
			\$_[0]->{'$method_base'};
		    }
		    ];
	} else {
	    eval qq[
		    sub $method_full {
			my \$self = shift;
			return \@_
			    ? (\$self->{'$method_base'} = shift)
			    : \$self->{'$method_base'};
		    }
		    ];
	}
    }
    confess( $@ ) if $@;
}

1;