File Coverage

blib/lib/Opendata/GTFS/Type/Transfer.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   10 use Opendata::GTFS::Standard;
  2         4  
  2         15  
2 2     2   2552 use strict;
  2         2  
  2         51  
3 2     2   9 use warnings;
  2         3  
  2         123  
4              
5             # PODNAME: Opendata::GTFS::Type::Transfer
6             # ABSTRACT: Transfer
7              
8 2     2   3083 class Opendata::GTFS::Type::Transfer using Moose {
  2     2   50  
  2     2   11  
  2         3  
  2         122  
  2         8  
  2         3  
  2         18  
  2         582  
  2         5  
  2         14  
  2         112  
  2         4  
  2         87  
  2         8  
  2         3  
  2         149  
  2         54  
  2         9  
  2         4  
  2         14  
  2         6228  
  2         5  
  2         15  
  2         9946  
  2         7  
  2         18  
  2         6251  
  2         3  
  2         23  
  2         144  
  2         3  
  2         15  
  2         348  
  2         4  
  2         15  
  2         1841  
  2         4  
  2         11  
  2         8650  
  2         6  
  2         98  
  2         10  
  2         3  
  2         56  
  2         8  
  2         3  
  2         117  
  2         9  
  2         5  
  2         253  
  2         17  
  2         26695  
  2         31  
  2         3664  
9              
10 2         22 our $VERSION = '0.0104'; # VERSION
11              
12 2         26 my @columns = qw/
13             1 from_stop_id
14             1 to_stop_id
15             1 transfer_type
16             0 min_transfer_time
17             /;
18              
19 2         9 for (my $i = 0; $i < $#columns; $i += 2) {
20 8         10424 my $required = $columns[$i];
21 8         11 my $column = $columns[$i + 1];
22              
23 8 100       27 has $column => (
24             is => 'ro',
25             isa => ($required ? Str : Maybe[Str]),
26             );
27             }
28             }
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding utf-8
37              
38             =head1 NAME
39              
40             Opendata::GTFS::Type::Transfer - Transfer
41              
42             =head1 VERSION
43              
44             Version 0.0104, released 2015-02-22.
45              
46              
47              
48             =head1 ATTRIBUTES
49              
50              
51             =head2 from_stop_id
52              
53             =begin HTML
54              
55             <table cellpadding="0" cellspacing="0">
56             <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>
57              
58             </td>
59             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
60             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
61             </table>
62              
63             <p></p>
64              
65             =end HTML
66              
67             =head2 min_transfer_time
68              
69             =begin HTML
70              
71             <table cellpadding="0" cellspacing="0">
72             <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>
73             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
74             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
75             </table>
76              
77             <p></p>
78              
79             =end HTML
80              
81             =head2 to_stop_id
82              
83             =begin HTML
84              
85             <table cellpadding="0" cellspacing="0">
86             <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>
87              
88             </td>
89             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
90             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
91             </table>
92              
93             <p></p>
94              
95             =end HTML
96              
97             =head2 transfer_type
98              
99             =begin HTML
100              
101             <table cellpadding="0" cellspacing="0">
102             <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>
103              
104             </td>
105             <td style="padding-right: 6px; padding-left: 6px; border-right: 1px solid #b8b8b8; white-space: nowrap;">optional</td>
106             <td style="padding-left: 6px; padding-right: 6px; white-space: nowrap;">read-only</td></tr>
107             </table>
108              
109             <p></p>
110              
111             =end HTML
112              
113             =head1 SOURCE
114              
115             L<https://github.com/Csson/p5-Opendata-GTFS-Feed>
116              
117             =head1 HOMEPAGE
118              
119             L<https://metacpan.org/release/Opendata-GTFS-Feed>
120              
121             =head1 AUTHOR
122              
123             Erik Carlsson <info@code301.com>
124              
125             =head1 COPYRIGHT AND LICENSE
126              
127             This software is copyright (c) 2015 by Erik Carlsson <info@code301.com>.
128              
129             This is free software; you can redistribute it and/or modify it under
130             the same terms as the Perl 5 programming language system itself.
131              
132             =cut