File Coverage

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


line stmt bran cond sub pod time code
1 2     2   8 use Opendata::GTFS::Standard;
  2         4  
  2         13  
2 2     2   2563 use strict;
  2         4  
  2         50  
3 2     2   8 use warnings;
  2         3  
  2         65  
4              
5             # PODNAME: Opendata::GTFS::Type::FareAttribute
6             # ABSTRACT: Fare attribute
7              
8 2     2   2995 class Opendata::GTFS::Type::FareAttribute using Moose {
  2     2   100  
  2     2   11  
  2         4  
  2         122  
  2         20  
  2         3  
  2         32  
  2         507  
  2         3  
  2         14  
  2         134  
  2         2  
  2         104  
  2         9  
  2         2  
  2         153  
  2         57  
  2         8  
  2         3  
  2         12  
  2         5863  
  2         3  
  2         15  
  2         10191  
  2         4  
  2         20  
  2         6247  
  2         2  
  2         20  
  2         144  
  2         3  
  2         16  
  2         454  
  2         3  
  2         15  
  2         1879  
  2         4  
  2         16  
  2         8648  
  2         6  
  2         63  
  2         7  
  2         2  
  2         73  
  2         8  
  2         4  
  2         97  
  2         7  
  2         3  
  2         278  
  2         16  
  2         27681  
  2         36  
  2         3487  
9              
10 2         25 our $VERSION = '0.0102'; # VERSION
11              
12 2         7 my @columns = qw/
13             1 fare_id
14             1 price
15             1 currency_type
16             1 payment_method
17             1 transfers
18             0 transfer_duration
19             /;
20              
21 2         8 for (my $i = 0; $i < $#columns; $i += 2) {
22 12         16918 my $required = $columns[$i];
23 12         21 my $column = $columns[$i + 1];
24              
25 12 100       41 has $column => (
26             is => 'ro',
27             isa => ($required ? Str : Maybe[Str]),
28             );
29             }
30             }
31              
32             1;
33              
34             __END__
35              
36             =pod
37              
38             =encoding utf-8
39              
40             =head1 NAME
41              
42             Opendata::GTFS::Type::FareAttribute - Fare attribute
43              
44             =head1 VERSION
45              
46             Version 0.0102, released 2015-02-19.
47              
48              
49              
50             =head1 ATTRIBUTES
51              
52              
53             =head2 currency_type
54              
55             =begin HTML
56              
57             <table cellpadding="0" cellspacing="0">
58             <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>
59              
60             </td>
61             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
62             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
63             </table>
64              
65             <p></p>
66              
67             =end HTML
68              
69             =head2 fare_id
70              
71             =begin HTML
72              
73             <table cellpadding="0" cellspacing="0">
74             <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>
75              
76             </td>
77             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
78             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
79             </table>
80              
81             <p></p>
82              
83             =end HTML
84              
85             =head2 payment_method
86              
87             =begin HTML
88              
89             <table cellpadding="0" cellspacing="0">
90             <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>
91              
92             </td>
93             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
94             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
95             </table>
96              
97             <p></p>
98              
99             =end HTML
100              
101             =head2 price
102              
103             =begin HTML
104              
105             <table cellpadding="0" cellspacing="0">
106             <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>
107              
108             </td>
109             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
110             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
111             </table>
112              
113             <p></p>
114              
115             =end HTML
116              
117             =head2 transfer_duration
118              
119             =begin HTML
120              
121             <table cellpadding="0" cellspacing="0">
122             <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#Maybe">Maybe</a> [ <a href="https://metacpan.org/pod/Types::Standard#Str">Str</a> ]</td>
123             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
124             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
125             </table>
126              
127             <p></p>
128              
129             =end HTML
130              
131             =head2 transfers
132              
133             =begin HTML
134              
135             <table cellpadding="0" cellspacing="0">
136             <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>
137              
138             </td>
139             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
140             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
141             </table>
142              
143             <p></p>
144              
145             =end HTML
146              
147             =head1 SOURCE
148              
149             L<https://github.com/Csson/p5-Opendata-GTFS-Feed>
150              
151             =head1 HOMEPAGE
152              
153             L<https://metacpan.org/release/Opendata-GTFS-Feed>
154              
155             =head1 AUTHOR
156              
157             Erik Carlsson <info@code301.com>
158              
159             =head1 COPYRIGHT AND LICENSE
160              
161             This software is copyright (c) 2015 by Erik Carlsson <info@code301.com>.
162              
163             This is free software; you can redistribute it and/or modify it under
164             the same terms as the Perl 5 programming language system itself.
165              
166             =cut