File Coverage

blib/lib/Net/Songkick/Location.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Net::Songkick::Location - Models a location in the Songkick API
4              
5             =cut
6              
7             package Net::Songkick::Location;
8              
9 5     5   38 use strict;
  5         11  
  5         164  
10 5     5   27 use warnings;
  5         9  
  5         168  
11              
12 5     5   29 use Moose;
  5         21  
  5         81  
13 5     5   34033 use Moose::Util::TypeConstraints;
  5         12  
  5         45  
14              
15             coerce 'Net::Songkick::Location',
16             from 'HashRef',
17             via { Net::Songkick::Location->new($_) };
18              
19             has $_ => (
20             is => 'ro',
21             isa => 'Str',
22             ) for qw[lng lat city];
23              
24 5     5   10696 no Moose;
  5         13  
  5         25  
25             __PACKAGE__->meta->make_immutable;
26              
27             =head1 AUTHOR
28              
29             Dave Cross <dave@perlhacks.com>
30              
31             =head1 SEE ALSO
32              
33             perl(1), L<http://www.songkick.com/>, L<http://developer.songkick.com/>
34              
35             =head1 COPYRIGHT AND LICENSE
36              
37             Copyright (C) 2010, Magnum Solutions Ltd. All Rights Reserved.
38              
39             This script is free software; you can redistribute it and/or modify it
40             under the same terms as Perl itself.
41              
42             =cut
43              
44             1;