File Coverage

blib/lib/Data/Model/Accessor.pm
Criterion Covered Total %
statement 16 16 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package Data::Model::Accessor;
2 134     134   786 use strict;
  134         268  
  134         4234  
3 134     134   754 use warnings;
  134         228  
  134         7047  
4              
5             sub mk_accessors {
6 168     168 0 545 my $class = shift;
7 168         640 for my $field (@_) {
8 134     134   675 no strict 'refs';
  134         251  
  134         20151  
9 2067         10840 *{"$class\::$field"} = sub {
10 33828 100   33828   229905 return $_[0]->{$field} unless @_ > 1;
11 3745         6481 my $self = shift;
12 3745 50       23327 $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
13 2067         7162 };
14             }
15             }
16              
17             1;