File Coverage

blib/lib/Net/Songkick/Country.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::Country - Models a country in the Songkick API
4              
5             =cut
6              
7             package Net::Songkick::Country;
8              
9 6     6   667 use strict;
  6         16  
  6         522  
10 6     6   36 use warnings;
  6         12  
  6         154  
11              
12 6     6   37 use Moose;
  6         13  
  6         46  
13 6     6   39897 use Moose::Util::TypeConstraints;
  6         16  
  6         48  
14              
15             coerce 'Net::Songkick::Country',
16             from 'HashRef',
17             via { Net::Songkick::Country->new($_) };
18              
19             has displayName => (
20             is => 'ro',
21             isa => 'Str',
22             );
23              
24 6     6   14049 no Moose;
  6         17  
  6         38  
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;