File Coverage

blib/lib/Object/Tiny.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	5	8	62.5
condition	3	6	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	29	36	80.5

package Object::Tiny; # git description: 5abde2e

use strict 'vars', 'subs';

our $VERSION = '1.09';

sub import {
	return unless shift eq 'Object::Tiny';
	my $pkg   = caller;
	my $child = !! @{"${pkg}::ISA"};
	eval join "\n",
		"package $pkg;",
		($child ? () : "\@${pkg}::ISA = 'Object::Tiny';"),
		map {
			defined and ! ref and /^[^\W\d]\w*\z/s
			or die "Invalid accessor name '$_'";
			"sub $_ { return \$_[0]->{$_} }"
		} @_;
	die "Failed to generate $pkg" if $@;
	return 1;
}

sub new {
	my $class = shift;
	bless { @_ }, $class;
}

1;

__END__