File Coverage

blib/lib/Net/Plazes/Plaze.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #########
2             # Author: rmp
3             # Maintainer: $Author: rmp $
4             # Created: 2008-08-13
5             # Last Modified: $Date$
6             # Id: $Id$
7             # $HeadURL$
8             #
9             package Net::Plazes::Plaze;
10 1     1   890 use strict;
  1         2  
  1         43  
11 1     1   6 use warnings;
  1         2  
  1         40  
12 1     1   6 use base qw(Net::Plazes::Base);
  1         2  
  1         557  
13              
14             our $VERSION = '0.03';
15              
16             __PACKAGE__->mk_accessors(fields());
17             __PACKAGE__->has_many();
18              
19             sub service {
20             return q[http://plazes.com/plazes];
21             }
22              
23             sub fields {
24             return qw(id address category city country_code has_free_wifi created_at link name state timezone updated_at zip_code latitude longitude country picture_url);
25             }
26              
27             1;
28             __END__