File Coverage

blib/lib/Time/Elapsed/Lang/TR.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Time::Elapsed::Lang::TR;
2             $Time::Elapsed::Lang::TR::VERSION = '0.33';
3 1     1   7 use strict;
  1         3  
  1         31  
4 1     1   5 use warnings;
  1         2  
  1         29  
5 1     1   6 use vars qw( $VERSION );
  1         1  
  1         44  
6 1     1   504 use subs qw( singular plural );
  1         25  
  1         6  
7 1     1   51 use utf8;
  1         2  
  1         5  
8              
9             *plural = \&singular;
10              
11             sub singular {
12 2     2   16 return qw/
13             second saniye
14             minute dakika
15             hour saat
16             day gün
17             week hafta
18             month ay
19             year yıl
20             /
21             }
22              
23             sub other {
24 1     1 1 6 return qw/
25             and ve
26             ago önce
27             /,
28             zero => q{sıfır saniye},
29             }
30              
31             1;
32              
33             __END__