File Coverage

blib/lib/Geo/OSM/MapFeatures/Feature/Value/Range.pm
Criterion Covered Total %
statement 12 21 57.1
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 29 55.1


line stmt bran cond sub pod time code
1             package Geo::OSM::MapFeatures::Feature::Value::Range;
2              
3 1     1   992 use warnings;
  1         2  
  1         35  
4 1     1   5 use strict;
  1         2  
  1         35  
5              
6 1     1   6 use base qw(Geo::OSM::MapFeatures::Feature::Value);
  1         2  
  1         96  
7              
8 1     1   7 use overload '""' => \&stringify;
  1         2  
  1         9  
9              
10             =head1 NAME
11              
12             Geo::OSM::MapFeatures::Feature::Value::Range - Numeric range value type
13              
14             =head1 VERSION
15              
16             Version 0.01
17              
18             =cut
19              
20             our $VERSION = '0.01';
21              
22              
23             =head1 SYNOPSIS
24              
25             =head1 FUNCTIONS
26              
27             =head2 from
28              
29             =head2 to
30              
31             =cut
32              
33             __PACKAGE__->mk_accessors(qw(from to));
34              
35             sub init {
36 0     0 0   my $self = shift;
37 0           my $value = shift;
38 0           my %classargs = %{ shift() };
  0            
39              
40 0           $self->from($classargs{from});
41 0           $self->to($classargs{to});
42              
43 0           return $self;
44             }
45              
46             sub stringify {
47 0     0 0   my $self = shift;
48              
49 0           return sprintf("Range: %s - %s", $self->from, $self->to);
50             }
51              
52             =head1 AUTHOR
53              
54             Knut Arne Bjørndal, C<< >>
55              
56             =head1 BUGS
57              
58             Please report any bugs or feature requests to C, or through
59             the web interface at L. I will be notified, and then you'll
60             automatically be notified of progress on your bug as I make changes.
61              
62              
63              
64              
65             =head1 SUPPORT
66              
67             You can find documentation for this module with the perldoc command.
68              
69             perldoc Geo::OSM::MapFeatures
70              
71              
72             You can also look for information at:
73              
74             =over 4
75              
76             =item * RT: CPAN's request tracker
77              
78             L
79              
80             =item * AnnoCPAN: Annotated CPAN documentation
81              
82             L
83              
84             =item * CPAN Ratings
85              
86             L
87              
88             =item * Search CPAN
89              
90             L
91              
92             =back
93              
94              
95             =head1 ACKNOWLEDGEMENTS
96              
97              
98             =head1 COPYRIGHT & LICENSE
99              
100             Copyright 2008 Knut Arne Bjørndal, all rights reserved.
101              
102             This program is free software; you can redistribute it and/or modify it
103             under the same terms as Perl itself.
104              
105              
106             =cut
107              
108             1; # End of Geo::OSM::MapFeatures::Feature::Value::Range