| 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 | 1 | 1 | 5 | use strict; | |||
| 1 | 1 | ||||||
| 1 | 30 | ||||||
| 3 | 1 | 1 | 6 | use warnings; | |||
| 1 | 1 | ||||||
| 1 | 33 | ||||||
| 4 | 1 | 1 | 4 | use vars qw( $VERSION ); | |||
| 1 | 2 | ||||||
| 1 | 41 | ||||||
| 5 | 1 | 1 | 850 | use subs qw( singular plural ); | |||
| 1 | 31 | ||||||
| 1 | 5 | ||||||
| 6 | 1 | 1 | 49 | use utf8; | |||
| 1 | 1 | ||||||
| 1 | 7 | ||||||
| 7 | |||||||
| 8 | $VERSION = '0.31'; | ||||||
| 9 | |||||||
| 10 | *plural = \&singular; | ||||||
| 11 | |||||||
| 12 | sub singular { | ||||||
| 13 | 2 | 2 | 19 | return qw/ | |||
| 14 | second saniye | ||||||
| 15 | minute dakika | ||||||
| 16 | hour saat | ||||||
| 17 | day gün | ||||||
| 18 | week hafta | ||||||
| 19 | month ay | ||||||
| 20 | year yıl | ||||||
| 21 | / | ||||||
| 22 | } | ||||||
| 23 | |||||||
| 24 | sub other { | ||||||
| 25 | 1 | 1 | 1 | 9 | return qw/ | ||
| 26 | and ve | ||||||
| 27 | ago önce | ||||||
| 28 | /, | ||||||
| 29 | zero => q{sıfır saniye}, | ||||||
| 30 | } | ||||||
| 31 | |||||||
| 32 | 1; | ||||||
| 33 | |||||||
| 34 | __END__ |