File Coverage

blib/lib/Map/Metro/Plugin/Map/Athens.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 2 0.0
total 9 13 69.2


line stmt bran cond sub pod time code
1 1     1   3027 use 5.16.0;
  1         2  
2              
3             package Map::Metro::Plugin::Map::Athens;
4              
5             our $VERSION = '0.1102'; # VERSION
6             # ABSTRACT: Map::Metro map for Athens
7              
8 1     1   4 use Moose;
  1         1  
  1         8  
9             with 'Map::Metro::Plugin::Map';
10              
11             has '+mapfile' => (
12             default => 'map-athens.metro',
13             );
14             sub map_version {
15 0     0 0 0 return $VERSION;
16             }
17             sub map_package {
18 1     1 0 2 return __PACKAGE__;
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding utf-8
28              
29             =head1 NAME
30              
31             Map::Metro::Plugin::Map::Athens - Map::Metro map for Athens
32              
33              
34              
35             =begin HTML
36              
37             <p><img src="https://img.shields.io/badge/perl-5.16+-brightgreen.svg" alt="Requires Perl 5.16+" /> <a href="https://travis-ci.org/Csson/p5-Map-Metro-Athens"><img src="https://api.travis-ci.org/Csson/p5-Map-Metro-Athens.svg?branch=master" alt="Travis status" /></a> <img src="https://img.shields.io/badge/coverage-69.2%-red.svg" alt="coverage 69.2%" /></p>
38              
39             =end HTML
40              
41              
42             =begin markdown
43              
44             ![Requires Perl 5.16+](https://img.shields.io/badge/perl-5.16+-brightgreen.svg) [![Travis status](https://api.travis-ci.org/Csson/p5-Map-Metro-Athens.svg?branch=master)](https://travis-ci.org/Csson/p5-Map-Metro-Athens) ![coverage 69.2%](https://img.shields.io/badge/coverage-69.2%-red.svg)
45              
46             =end markdown
47              
48             =head1 VERSION
49              
50             Version 0.1102, released 2016-01-27.
51              
52             =head1 SYNOPSIS
53              
54             use Map::Metro;
55             my $graph = Map::Metro->new('Athens')->parse;
56              
57             Or:
58              
59             $ map-metro.pl route Athens Marousi Panormou
60              
61             =head1 DESCRIPTION
62              
63             See L<Map::Metro> for usage information.
64              
65             =head1 Status
66              
67             As of 2015-01-02 it contains the three Metro lines and the two Proastiakos lines. See L<wikipedia|https://en.wikipedia.org/wiki/Athens_metro>.
68              
69             Notes:
70              
71             * Larissa Station (Athens Railway Station) is considered to be the same station on both M2 and P1.
72              
73             * The Irakleio station on P2 is called 'Irakleio P' to separate it from the Irakleio station on M1.
74              
75             See L<Map::Metro::Plugin::Map::Athens::Lines>.
76              
77             =for HTML <p><a href="https://raw.githubusercontent.com/Csson/p5-Map-Metro-Athens/master/static/images/athens.png"><img src="https://raw.githubusercontent.com/Csson/p5-Map-Metro-Athens/master/static/images/athens.png" style="max-width: 600px" /></a></p>
78              
79             =head1 SOURCE
80              
81             L<https://github.com/Csson/p5-Map-Metro-Athens>
82              
83             =head1 HOMEPAGE
84              
85             L<https://metacpan.org/release/Map-Metro-Plugin-Map-Athens>
86              
87             =head1 AUTHOR
88              
89             Erik Carlsson <info@code301.com>
90              
91             =head1 COPYRIGHT AND LICENSE
92              
93             This software is copyright (c) 2016 by Erik Carlsson.
94              
95             This is free software; you can redistribute it and/or modify it under
96             the same terms as the Perl 5 programming language system itself.
97              
98             =cut