File Coverage

blib/lib/Class/Accessor/Tiny.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	21	22	95.4

package Class::Accessor::Tiny;
our $VERSION = '0.10';
sub new{ return bless {}, $_[0] };
sub import{
    my $self = shift;
    my $caller = caller;
    for my $name ( @_ ){
        if ( $name eq 'new' ){
            *{  $caller . "::new" } = \&new;
        }
        else {
            my $setter  = sub { $_[0]->{$name} = $_[1],$_[0] };
            my $gettter = sub { $_[0]->{$name} };
            *{ $caller . "::get_$name" } = $gettter;
            *{ $caller . "::set_$name" } = $setter;
        }
    }
}
1;
__END__