File Coverage

blib/lib/Acme/Speed/Member/UeharaTakako.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::UeharaTakako;
2              
3 1     1   6 use strict;
  1         2  
  1         36  
4 1     1   6 use warnings;
  1         1  
  1         31  
5              
6 1     1   6 use base qw(Acme::Speed::Member::Base);
  1         2  
  1         138  
7              
8             sub info {
9 1     1 0 3 my $self = shift;
10              
11             return (
12 1         8 first_name_ja => '多香子',
13             family_name_ja => '上原',
14             first_name_en => 'Takako',
15             family_name_en => 'Uehara',
16             nick => '',
17             birthday => $self->_datetime_from_date('1983-01-14'),
18             );
19             }
20              
21             1;