File Coverage

blib/lib/Date/Language/Spanish.pm
Criterion Covered Total %
statement 19 21 90.4
branch 0 2 0.0
condition n/a
subroutine 9 11 81.8
pod 0 6 0.0
total 28 40 70.0


line stmt bran cond sub pod time code
1             ##
2             ## Spanish tables
3             ##
4              
5             package Date::Language::Spanish;
6              
7 2     2   13 use strict;
  2         4  
  2         86  
8 2     2   10 use warnings;
  2         3  
  2         103  
9 2     2   12 use utf8;
  2         4  
  2         13  
10 2     2   49 use Date::Language ();
  2         3  
  2         55  
11              
12 2     2   31 use base 'Date::Language';
  2         4  
  2         1021  
13              
14             our $VERSION = '2.34'; # VERSION: generated
15             # ABSTRACT: Spanish localization for Date::Format
16              
17             our @DoW = qw(domingo lunes martes miércoles jueves viernes sábado);
18             our @MoY = qw(enero febrero marzo abril mayo junio
19             julio agosto septiembre octubre noviembre diciembre);
20             our @DoWs = map { substr($_,0,3) } @DoW;
21             our @MoYs = map { substr($_,0,3) } @MoY;
22             our @AMPM = qw(AM PM);
23              
24             our @Dsuf = ((qw(ro do ro to to to mo vo no mo)) x 3, 'ro');
25              
26             our ( %MoY, %DoW );
27             Date::Language::_build_lookups();
28              
29             # Formatting routines
30              
31 2     2 0 9 sub format_a { $DoWs[$_[0]->[6]] }
32 1     1 0 3 sub format_A { $DoW[$_[0]->[6]] }
33 2     2 0 6 sub format_b { $MoYs[$_[0]->[4]] }
34 1     1 0 5 sub format_B { $MoY[$_[0]->[4]] }
35 0     0 0   sub format_h { $MoYs[$_[0]->[4]] }
36 0 0   0 0   sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
37              
38             1;
39              
40             __END__