File Coverage

blib/lib/Geo/OSM/MapFeatures/Feature/Value/NumWithUnit.pm
Criterion Covered Total %
statement 12 22 54.5
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 30 53.3


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