File Coverage

blib/lib/Travel/Status/DE/EFA/Stop.pm
Criterion Covered Total %
statement 14 20 70.0
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 21 29 72.4


line stmt bran cond sub pod time code
1             package Travel::Status::DE::EFA::Stop;
2              
3 2     2   14 use strict;
  2         4  
  2         61  
4 2     2   10 use warnings;
  2         4  
  2         48  
5 2     2   38 use 5.010;
  2         6  
6              
7 2     2   10 no if $] >= 5.018, warnings => 'experimental::smartmatch';
  2         18  
  2         29  
8              
9 2     2   145 use parent 'Class::Accessor';
  2         29  
  2         15  
10              
11             our $VERSION = '1.21';
12              
13             Travel::Status::DE::EFA::Stop->mk_ro_accessors(
14             qw(arr_date arr_time dep_date dep_time name name_suf platform));
15              
16             sub new {
17 0     0 1   my ( $obj, %conf ) = @_;
18              
19 0           my $ref = \%conf;
20              
21 0           return bless( $ref, $obj );
22             }
23              
24             sub TO_JSON {
25 0     0 1   my ($self) = @_;
26              
27 0           return { %{$self} };
  0            
28             }
29              
30             1;
31              
32             __END__