File Coverage

blib/lib/Opendata/GTFS/Standard.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition 1 2 50.0
subroutine 9 9 100.0
pod n/a
total 39 40 97.5


line stmt bran cond sub pod time code
1 2     2   20 use 5.14.0;
  2         6  
  2         69  
2 2     2   7 use strict;
  2         2  
  2         48  
3 2     2   7 use warnings;
  2         2  
  2         100  
4              
5             package Opendata::GTFS::Standard {
6              
7             our $VERSION = '0.0102'; # VERSION
8              
9 2     2   12 use base 'Moops';
  2         2  
  2         1007  
10 2     2   117745 use List::AllUtils();
  2         18377  
  2         47  
11 2     2   1012 use MooseX::StrictConstructor();
  2         745757  
  2         58  
12 2     2   791 use Types::Opendata::GTFS();
  2         47  
  2         62  
13 2     2   975 use Safe::Isa;
  2         829  
  2         400  
14              
15             sub import {
16 26     26   60 my $class = shift;
17 26         72 my %opts = @_;
18              
19 26   50     38 push @{ $opts{'imports'} ||= [] } => (
  26         431  
20             'List::AllUtils' => [qw/any none sum uniq zip first_index/],
21             'Types::Opendata::GTFS' => [{ replace => 1 }, '-types'],
22             'MooseX::StrictConstructor' => [],
23             'Safe::Isa' => ['$_does'],
24             );
25              
26 26         180 $class->SUPER::import(%opts);
27             }
28             }
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             Opendata::GTFS::Standard
41              
42             =head1 VERSION
43              
44             Version 0.0102, released 2015-02-19.
45              
46             =head1 SOURCE
47              
48             L<https://github.com/Csson/p5-Opendata-GTFS-Feed>
49              
50             =head1 HOMEPAGE
51              
52             L<https://metacpan.org/release/Opendata-GTFS-Feed>
53              
54             =head1 AUTHOR
55              
56             Erik Carlsson <info@code301.com>
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             This software is copyright (c) 2015 by Erik Carlsson <info@code301.com>.
61              
62             This is free software; you can redistribute it and/or modify it under
63             the same terms as the Perl 5 programming language system itself.
64              
65             =cut