File Coverage

blib/lib/Geo/OSM/MapFeatures/Feature/Type.pm
Criterion Covered Total %
statement 12 19 63.1
branch n/a
condition 0 3 0.0
subroutine 4 6 66.6
pod 1 2 50.0
total 17 30 56.6


line stmt bran cond sub pod time code
1             package Geo::OSM::MapFeatures::Feature::Type;
2              
3 1     1   6 use warnings;
  1         2  
  1         30  
4 1     1   5 use strict;
  1         2  
  1         31  
5              
6 1     1   6 use base qw(Class::Accessor);
  1         2  
  1         86  
7             __PACKAGE__->mk_accessors(qw(type));
8              
9 1     1   6 use overload '""' => \&stringify;
  1         2  
  1         7  
10              
11             =head1 NAME
12              
13             Geo::OSM::MapFeatures::Feature::Type - Represents a feature type
14              
15             =head1 VERSION
16              
17             Version 0.01
18              
19             =cut
20              
21             our $VERSION = '0.01';
22              
23              
24             =head1 SYNOPSIS
25              
26             =head1 FUNCTIONS
27              
28             =head2 type
29              
30             Returns the type
31              
32             =cut
33              
34             sub new {
35 0     0 1   my $pkg = shift;
36 0   0       my $class = ref $pkg || $pkg;
37 0           my $self = bless( {}, $class);
38              
39 0           $self->type( shift() );
40             #FIXME: throw if $type not in node, way, area
41              
42 0           return $self;
43             }
44              
45             sub stringify {
46 0     0 0   my $self = shift;
47              
48 0           return $self->type();
49             }
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::Type