File Coverage

blib/lib/Net/Songkick/Venue.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 30 31 96.7


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Net::Songkick::Venue - Models a venue in the Songkick API
4              
5             =cut
6              
7             package Net::Songkick::Venue;
8              
9 6     6   596 use strict;
  6         12  
  6         217  
10 6     6   36 use warnings;
  6         11  
  6         275  
11              
12 6     6   42 use Moose;
  6         10  
  6         50  
13 6     6   42877 use Moose::Util::TypeConstraints;
  6         15  
  6         57  
14              
15 6     6   16792 use Net::Songkick::City;
  6         19  
  6         241  
16 6     6   2780 use Net::Songkick::MetroArea;
  6         21  
  6         1001  
17              
18             coerce 'Net::Songkick::Venue',
19             from 'HashRef',
20             via { Net::Songkick::Venue->new($_) };
21              
22             has $_ => (
23             is => 'ro',
24             isa => 'Undef|Str',
25             ) for qw[uri lat id lng displayName street zip phone website capacity description];
26              
27             has city => (
28             is => 'ro',
29             isa => 'Net::Songkick::City',
30             coerce => 1,
31             );
32              
33             has metroArea => (
34             is => 'ro',
35             isa => 'Net::Songkick::MetroArea',
36             coerce => 1,
37             );
38              
39             # Backwards compatibility
40 1     1 0 36 sub metro_area { return $_[0]->metroArea }
41              
42 6     6   51 no Moose;
  6         47  
  6         36  
43             __PACKAGE__->meta->make_immutable;
44              
45             =head1 AUTHOR
46              
47             Dave Cross <dave@perlhacks.com>
48              
49             =head1 SEE ALSO
50              
51             perl(1), L<http://www.songkick.com/>, L<http://developer.songkick.com/>
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             Copyright (C) 2010, Magnum Solutions Ltd. All Rights Reserved.
56              
57             This script is free software; you can redistribute it and/or modify it
58             under the same terms as Perl itself.
59              
60             =cut
61              
62             1;