File Coverage

blib/lib/Plack/Util/Accessor.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	29	32	90.6

package Plack::Util::Accessor;
use strict;
use warnings;

sub import {
    shift;
    return unless @_;
    my $package = caller();
    mk_accessors( $package, @_ );
}

sub mk_accessors {
    my $package = shift;
    no strict 'refs';
    foreach my $field ( @_ ) {
        *{ $package . '::' . $field } = sub {
            return $_[0]->{ $field } if scalar( @_ ) == 1;
            return $_[0]->{ $field }  = scalar( @_ ) == 2 ? $_[1] : [ @_[1..$#_] ];
        };
    }
}

1;

__END__