File Coverage

blib/lib/Acme/Speed/Member/ShimabukuroHiroko.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Acme::Speed::Member::ShimabukuroHiroko;
2              
3 1     1   6 use strict;
  1         2  
  1         32  
4 1     1   6 use warnings;
  1         2  
  1         28  
5              
6 1     1   5 use base qw(Acme::Speed::Member::Base);
  1         1  
  1         133  
7              
8             sub info {
9 1     1 0 2 my $self = shift;
10              
11             return (
12 1         8 first_name_ja => '寛子',
13             family_name_ja => '島袋',
14             first_name_en => 'Hiroko',
15             family_name_en => 'Shimabukuro',
16             nick => 'hiro',
17             birthday => $self->_datetime_from_date('1984-04-07'),
18             );
19             }
20              
21             1;