File Coverage

blib/lib/Travel/Status/DE/EFA/Stop.pm
Criterion Covered Total %
statement 11 17 64.7
branch n/a
condition n/a
subroutine 4 6 66.6
pod 2 2 100.0
total 17 25 68.0


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