File Coverage

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