File Coverage

blib/lib/Net/Songkick/City.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::City - Models a city in the Songkick API
4              
5             =cut
6              
7             package Net::Songkick::City;
8              
9 6     6   43 use strict;
  6         10  
  6         170  
10 6     6   28 use warnings;
  6         13  
  6         128  
11 6     6   28 use Moose;
  6         11  
  6         29  
12 6     6   35194 use Moose::Util::TypeConstraints;
  6         12  
  6         38  
13              
14 6     6   14096 use Net::Songkick::Country;
  6         16  
  6         653  
15              
16             coerce 'Net::Songkick::City',
17             from 'HashRef',
18             via { Net::Songkick::City->new($_) };
19              
20             has $_ => (
21             is => 'ro',
22             isa => 'Str',
23             ) for qw[displayName id uri];
24              
25             has country => (
26             is => 'ro',
27             isa => 'Net::Songkick::Country',
28             coerce => 1,
29             );
30              
31 6     6   45 no Moose;
  6         12  
  6         29  
32             __PACKAGE__->meta->make_immutable;
33              
34             =head1 AUTHOR
35              
36             Dave Cross <dave@perlhacks.com>
37              
38             =head1 SEE ALSO
39              
40             perl(1), L<http://www.songkick.com/>, L<http://developer.songkick.com/>
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             Copyright (C) 2018, Magnum Solutions Ltd. All Rights Reserved.
45              
46             This script is free software; you can redistribute it and/or modify it
47             under the same terms as Perl itself.
48              
49             =cut
50              
51             1;