File Coverage

blib/lib/Map/Metro/Graph/Segment.pm
Criterion Covered Total %
statement 67 68 98.5
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 73 74 98.6


line stmt bran cond sub pod time code
1 1     1   6 use Map::Metro::Standard::Moops;
  1         3  
  1         10  
2 1     1   2430 use strict;
  1         2  
  1         26  
3 1     1   7 use warnings;
  1         2  
  1         55  
4              
5             our $VERSION = '0.2300'; # VERSION
6             # PODNAME: Map::Metro::Graph::Segment
7             # ABSTRACT: All lines between two neighboring stations
8              
9 1     1   1643 class Map::Metro::Graph::Segment {
  1     1   36  
  1     1   6  
  1         2  
  1         69  
  1         5  
  1         3  
  1         9  
  1         277  
  1         2  
  1         9  
  1         60  
  1         2  
  1         58  
  1         5  
  1         3  
  1         120  
  1         40  
  1         6  
  1         2  
  1         7  
  1         4804  
  1         3  
  1         10  
  1         6657  
  1         3  
  1         11  
  1         4523  
  1         3  
  1         13  
  1         82  
  1         2  
  1         10  
  1         231  
  1         2  
  1         9  
  1         1292  
  1         3  
  1         8  
  1         6377  
  1         3  
  1         7  
  1         2  
  1         31  
  1         7  
  1         3  
  1         53  
  1         5  
  1         3  
  1         160  
  1         10  
  1         20554  
  1         21  
  1         4355  
10              
11             has line_ids => (
12             is => 'ro',
13             isa => ArrayRef[Str],
14             traits => ['Array'],
15             required => 1,
16 0         0 default => sub { [] },
17 1         17 handles => {
18             all_line_ids => 'elements',
19             }
20             );
21 1         9969 has origin_station => (
22             is => 'ro',
23             isa => Station,
24             required => 1,
25             );
26 1         4327 has destination_station => (
27             is => 'ro',
28             isa => Station,
29             required => 1,
30             );
31 1         4466 has is_one_way => (
32             is => 'ro',
33             isa => Bool,
34             default => 0,
35             );
36              
37             }
38              
39             1;
40              
41             __END__
42              
43             =pod
44              
45             =encoding UTF-8
46              
47             =head1 NAME
48              
49             Map::Metro::Graph::Segment - All lines between two neighboring stations
50              
51             =head1 VERSION
52              
53             Version 0.2300, released 2016-01-14.
54              
55             =head1 DESCRIPTION
56              
57             Segments are used during the graph building phase. Its purpose is to describe the combination of two L<Stations|Map::Metro::Graph::Station>
58             and all L<Lines|Map::Metro::Graph::Line> that go between them.
59              
60             =head1 SOURCE
61              
62             L<https://github.com/Csson/p5-Map-Metro>
63              
64             =head1 HOMEPAGE
65              
66             L<https://metacpan.org/release/Map-Metro>
67              
68             =head1 AUTHOR
69              
70             Erik Carlsson <info@code301.com>
71              
72             =head1 COPYRIGHT AND LICENSE
73              
74             This software is copyright (c) 2016 by Erik Carlsson.
75              
76             This is free software; you can redistribute it and/or modify it under
77             the same terms as the Perl 5 programming language system itself.
78              
79             =cut