File Coverage

blib/lib/Date/Language/Bulgarian.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 4 50.0
condition n/a
subroutine 11 11 100.0
pod 0 7 0.0
total 32 41 78.0


line stmt bran cond sub pod time code
1             ##
2             ## Bulgarian tables contributed by Krasimir Berov
3             ##
4              
5             package Date::Language::Bulgarian;
6 2     2   14 use strict;
  2         4  
  2         67  
7 2     2   14 use warnings;
  2         6  
  2         86  
8 2     2   658 use utf8;
  2         17  
  2         22  
9 2     2   62 use base qw(Date::Language);
  2         4  
  2         1507  
10             our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW, $VERSION);
11             $VERSION = "1.01";
12              
13             @DoW = qw(неделя понеделник вторник сряда четвъртък петък събота);
14             @MoY = qw(януари февруари март април май юни
15             юли август септември октомври ноември декември);
16             @DoWs = qw(нд пн вт ср чт пт сб);
17             @MoYs = map { substr($_,0,3) } @MoY;
18             @AMPM = qw(AM PM);
19              
20             @Dsuf = (qw(ти ви ри ти ти ти ти ми ми ти)) x 3;
21             @Dsuf[11,12,13] = qw(ти ти ти);
22             @Dsuf[30,31] = qw(ти ви);
23              
24             @MoY{@MoY} = (0 .. scalar(@MoY));
25             @MoY{@MoYs} = (0 .. scalar(@MoYs));
26             @DoW{@DoW} = (0 .. scalar(@DoW));
27             @DoW{@DoWs} = (0 .. scalar(@DoWs));
28              
29             # Formatting routines
30              
31 3     3 0 23 sub format_a { $DoWs[$_[0]->[6]] }
32 1     1 0 5 sub format_A { $DoW[$_[0]->[6]] }
33 3     3 0 15 sub format_b { $MoYs[$_[0]->[4]] }
34 1     1 0 5 sub format_B { $MoY[$_[0]->[4]] }
35 1     1 0 4 sub format_h { $MoYs[$_[0]->[4]] }
36 1 50   1 0 8 sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
37 1 50   1 0 8 sub format_o { ($_[0]->[3]<10?' ':'').$_[0]->[3].$Dsuf[$_[0]->[3]] }
38              
39             1;
40              
41             __END__