File Coverage

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