File Coverage

blib/lib/Object/Tiny/Lvalue.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	5	0.0
total	36	44	81.8

use 5.006; use strict; use warnings;

package Object::Tiny::Lvalue;

our $VERSION = '1.084';

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

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

1;

__END__