File Coverage

blib/lib/Geo/OSM/Render/Viewport/UnClipped.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             # Encoding and name #_{
2              
3             =encoding utf8
4             =head1 NAME
5              
6             Geo::OSM::Render::Viewport::UnClipped - Use an ounbounded L<> to create a map.
7              
8             =cut
9             package Geo::OSM::Render::Viewport::UnClipped;
10             #_}
11             #_{ use …
12 1     1   87360 use warnings;
  1         4  
  1         55  
13 1     1   9 use strict;
  1         4  
  1         41  
14              
15 1     1   581 use utf8;
  1         19  
  1         7  
16 1     1   44 use Carp;
  1         3  
  1         86  
17 1     1   400 use Geo::OSM::Render::Viewport;
  1         14  
  1         197  
18             our @ISA = qw(Geo::OSM::Render::Viewport);
19              
20             #_}
21             our $VERSION = 0.01;
22             #_{ Synopsis
23              
24             =head1 SYNOPSIS
25              
26             This class derives from L<>.
27              
28             =cut
29             #_}
30             #_{ Overview
31              
32             =head1 OVERVIEW
33              
34             See L.
35              
36             =cut
37              
38             #_}
39             #_{ Methods
40             #_{ POD
41             =head1 METHODS
42             =cut
43             #_}
44             sub new { #_{
45             #_{ POD
46              
47             =head2 new
48              
49             my $vp = Geo::OSM::Render::Viewport::UnClipped->new();
50              
51              
52             =cut
53              
54             #_}
55              
56 1     1 1 81 my $class = shift;
57 1         10 my $self = $class->SUPER::new();
58 1         3 return $self;
59              
60             } #_}
61             sub x_y_to_map_x_y { #_{
62             #_{ POD
63              
64             =head2 x_y_to_map_x_y
65              
66             my ($map_x, $map_y) = $projection->x_y_to_map_x_y($x, $y);
67              
68             =cut
69              
70             #_}
71              
72 1     1 1 8 my $self = shift;
73              
74             # The viewport is unbounded so the passed coordinates need not
75             # be 'viewported':
76 1         4 return @_;
77              
78             } #_}
79             #_}
80             #_{ POD: Author
81              
82             =head1 AUTHOR
83              
84             René Nyffenegger
85              
86             =cut
87              
88             #_}
89             #_{ POD: Copyright and License
90              
91             =head1 COPYRIGHT AND LICENSE
92             Copyright © 2017 René Nyffenegger, Switzerland. All rights reserved.
93              
94             This program is free software; you can redistribute it and/or modify it
95             under the terms of the the Artistic License (2.0). You may obtain a
96             copy of the full license at: L
97             =cut
98              
99             #_}
100             #_{ POD: Source Code
101              
102             =head1 Source Code
103              
104             The source code is on L<< github|https://github.com/ReneNyffenegger/perl-Geo-OSM-Render >>. Meaningful pull requests are welcome.
105              
106             =cut
107              
108             #_}
109              
110             'tq84';