File Coverage

blib/lib/Mock/Person/JP/Person.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Mock::Person::JP::Person;
2              
3 3     3   18 use strict;
  3         5  
  3         262  
4 3     3   17 use warnings;
  3         6  
  3         83  
5 3     3   2282 use Mock::Person::JP::Person::Name ();
  3         8  
  3         254  
6              
7             sub new
8             {
9 5     5 0 11 my ($class, $arg) = @_;
10              
11 5         31 return bless $arg, $class;
12             }
13              
14 11     11 1 2020 sub name { Mock::Person::JP::Person::Name->new(shift->{name}); }
15              
16             1;
17              
18             __END__