File Coverage

blib/lib/Travel/Routing/DE/EFA/Route.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Travel::Routing::DE::EFA::Route;
2              
3 2     2   14 use strict;
  2         5  
  2         62  
4 2     2   15 use warnings;
  2         4  
  2         85  
5 2     2   39 use 5.010;
  2         7  
6              
7 2     2   11 use parent 'Class::Accessor';
  2         4  
  2         12  
8              
9 2     2   6073 use Travel::Routing::DE::EFA::Route::Part;
  2         7  
  2         13  
10              
11             our $VERSION = '2.21';
12              
13             Travel::Routing::DE::EFA::Route->mk_ro_accessors(
14             qw(duration ticket_text ticket_type fare_adult fare_child vehicle_time));
15              
16             sub new {
17 4     4 1 14 my ( $obj, $info, @parts ) = @_;
18              
19 4         8 my $ref = $info;
20              
21 4         9 for my $part (@parts) {
22             push(
23 10         20 @{ $ref->{parts} },
24 10         17 Travel::Routing::DE::EFA::Route::Part->new( %{$part} )
  10         69  
25             );
26             }
27              
28 4         25 return bless( $ref, $obj );
29             }
30              
31             sub parts {
32 5     5 1 15155 my ($self) = @_;
33              
34 5         9 return @{ $self->{parts} };
  5         20  
35             }
36              
37             1;
38              
39             __END__