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   721 use strict;
  6         15  
  6         218  
10 6     6   43 use warnings;
  6         14  
  6         242  
11              
12 6     6   35 use Moose;
  6         16  
  6         45  
13 6     6   42373 use Moose::Util::TypeConstraints;
  6         17  
  6         60  
14              
15 6     6   16202 use Net::Songkick::City;
  6         25  
  6         248  
16 6     6   2910 use Net::Songkick::MetroArea;
  6         25  
  6         1017  
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 37 sub metro_area { return $_[0]->metroArea }
41              
42 6     6   51 no Moose;
  6         46  
  6         38  
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;