File Coverage

blib/lib/WWW/ArsenalFC/TicketInformation/Util.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1 5     5   100800 use strict;
  5         9  
  5         220  
2 5     5   33 use warnings;
  5         11  
  5         1651  
3              
4             package WWW::ArsenalFC::TicketInformation::Util;
5             {
6             $WWW::ArsenalFC::TicketInformation::Util::VERSION = '1.123160';
7             }
8              
9             # ABSTRACT: Utility methods
10              
11             require Exporter;
12             our @ISA = qw(Exporter);
13             our @EXPORT_OK = qw(month_to_number);
14             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
15              
16             my %mon2num = qw(
17             jan 01 feb 02 mar 03 apr 04 may 05 jun 06
18             jul 07 aug 08 sep 09 oct 10 nov 11 dec 12
19             );
20              
21             sub month_to_number {
22 24     24 1 75 my ($month) = @_;
23              
24 24         155 return $mon2num{ lc( substr( $month, 0, 3 ) ) };
25             }
26              
27             1;
28              
29              
30             __END__