File Coverage

blib/lib/DateTime/Calendar/Coptic/Languages/Coptic.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             ##
2             ## Coptic tables
3             ##
4              
5             package DateTime::Calendar::Coptic::Languages::Coptic;
6              
7             BEGIN
8             {
9 1     1   4 use utf8;
  1         1  
  1         5  
10 1     1   29 use strict;
  1         1  
  1         23  
11 1     1   3 use warnings;
  1         1  
  1         34  
12              
13 1     1   3 use DateTime::Languages;
  1         2  
  1         23  
14 1     1   3 use vars qw(@ISA @DayNames @DayAbbreviations @MonthNames @MonthAbbreviations @AMPM $VERSION);
  1         1  
  1         201  
15 1     1   13 @ISA = qw(DateTime::Languages);
16              
17 1         2 $VERSION = "0.05";
18              
19 1         8 @DayNames = qw(Πιογαι Πιϲναγ Πιϣομτ Πιφτοογ Πιτιογ Πιϲοογ Πιϣαϣϥ);
20 1         3 @MonthNames = ( "ϴωογτ",
21             "Παοπι",
22             "Αθορ",
23             "Χοιακ",
24             "Τωβι",
25             "Μεϣιρ",
26             "Παρεμϩατ",
27             "Φαρμοθι",
28             "Παϣανϲ",
29             "Παωνι",
30             "Επηπ",
31             "Μεϲωρη",
32             "Πικογϫι μαβοτ"
33             );
34              
35 1         2 @DayAbbreviations = map { substr($_,0,3) } @DayNames;
  7         15  
36 1         2 @MonthAbbreviations = map { substr($_,0,3) } @MonthNames;
  13         67  
37              
38 1         29 @AMPM = qw(AM PM);
39             }
40              
41             1;
42             __END__