File Coverage

blib/lib/Net/Songkick/MetroArea.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


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