File Coverage

blib/lib/Opendata/GTFS/Type/CalendarDate.pm
Criterion Covered Total %
statement 70 70 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 77 78 98.7


line stmt bran cond sub pod time code
1 2     2   10 use Opendata::GTFS::Standard;
  2         3  
  2         14  
2 2     2   2522 use strict;
  2         3  
  2         49  
3 2     2   7 use warnings;
  2         3  
  2         59  
4              
5             # PODNAME: Opendata::GTFS::Type::CalendarDate
6             # ABSTRACT: Calendar date
7              
8 2     2   3059 class Opendata::GTFS::Type::CalendarDate using Moose {
  2     2   47  
  2     2   10  
  2         2  
  2         118  
  2         13  
  2         2  
  2         17  
  2         488  
  2         2  
  2         14  
  2         99  
  2         3  
  2         81  
  2         7  
  2         3  
  2         168  
  2         58  
  2         9  
  2         3  
  2         12  
  2         6086  
  2         4  
  2         13  
  2         10402  
  2         5  
  2         16  
  2         6505  
  2         5  
  2         23  
  2         194  
  2         4  
  2         16  
  2         440  
  2         4  
  2         15  
  2         1983  
  2         3  
  2         13  
  2         9148  
  2         5  
  2         82  
  2         7  
  2         3  
  2         64  
  2         7  
  2         3  
  2         96  
  2         8  
  2         2  
  2         283  
  2         17  
  2         27654  
  2         36  
  2         3189  
9              
10 2         25 our $VERSION = '0.0102'; # VERSION
11              
12 2         4 my @columns = qw/
13             1 service_id
14             1 date
15             1 exception_type
16             /;
17              
18 2         9 for (my $i = 0; $i < $#columns; $i += 2) {
19 6         7564 my $required = $columns[$i];
20 6         11 my $column = $columns[$i + 1];
21              
22 6 50       25 has $column => (
23             is => 'ro',
24             isa => ($required ? Str : Maybe[Str]),
25             );
26             }
27             }
28              
29             1;
30              
31             __END__
32              
33             =pod
34              
35             =encoding utf-8
36              
37             =head1 NAME
38              
39             Opendata::GTFS::Type::CalendarDate - Calendar date
40              
41             =head1 VERSION
42              
43             Version 0.0102, released 2015-02-19.
44              
45              
46              
47             =head1 ATTRIBUTES
48              
49              
50             =head2 date
51              
52             =begin HTML
53              
54             <table cellpadding="0" cellspacing="0">
55             <tr><td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;"><a href="https://metacpan.org/pod/Types::Standard#Str">Str</a>
56              
57             </td>
58             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
59             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
60             </table>
61              
62             <p></p>
63              
64             =end HTML
65              
66             =head2 exception_type
67              
68             =begin HTML
69              
70             <table cellpadding="0" cellspacing="0">
71             <tr><td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;"><a href="https://metacpan.org/pod/Types::Standard#Str">Str</a>
72              
73             </td>
74             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
75             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
76             </table>
77              
78             <p></p>
79              
80             =end HTML
81              
82             =head2 service_id
83              
84             =begin HTML
85              
86             <table cellpadding="0" cellspacing="0">
87             <tr><td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;"><a href="https://metacpan.org/pod/Types::Standard#Str">Str</a>
88              
89             </td>
90             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
91             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
92             </table>
93              
94             <p></p>
95              
96             =end HTML
97              
98             =head1 SOURCE
99              
100             L<https://github.com/Csson/p5-Opendata-GTFS-Feed>
101              
102             =head1 HOMEPAGE
103              
104             L<https://metacpan.org/release/Opendata-GTFS-Feed>
105              
106             =head1 AUTHOR
107              
108             Erik Carlsson <info@code301.com>
109              
110             =head1 COPYRIGHT AND LICENSE
111              
112             This software is copyright (c) 2015 by Erik Carlsson <info@code301.com>.
113              
114             This is free software; you can redistribute it and/or modify it under
115             the same terms as the Perl 5 programming language system itself.
116              
117             =cut