File Coverage

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