File Coverage

blib/lib/TipJar/fields.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	24	27	88.8

package TipJar::fields;

use strict;
use warnings;
use vars qw/$VERSION/;
$VERSION = '0.01';
use Carp;
sub import{
	shift;
	my $CP = caller;
	my $number;
	my $code = join '',"package $CP;\n",
		map {
			my $N = $number++;
			<

sub $_(){$N;};
sub get$_ { \$_[0]->[$_]; };
sub set$_ { \$_[0]->[$_] = \$_[1]; };

EOF
		} @_;

	eval $code;

	$@ and croak "$@\n$code\nEND\n";
};

1;
__END__