File Coverage

blib/lib/Net/Songkick/Performance.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::Performance - Models a performance in the Songkick API
4              
5             =cut
6              
7             package Net::Songkick::Performance;
8              
9 5     5   39 use strict;
  5         14  
  5         165  
10 5     5   85 use warnings;
  5         11  
  5         142  
11 5     5   27 use Moose;
  5         15  
  5         31  
12 5     5   34013 use Moose::Util::TypeConstraints;
  5         14  
  5         42  
13              
14 5     5   13487 use Net::Songkick::Artist;
  5         16  
  5         663  
15              
16             coerce 'Net::Songkick::Performance',
17             from 'HashRef',
18             via { Net::Songkick::Performance->new($_) };
19              
20             has $_ => (
21             is => 'ro',
22             isa => 'Str',
23             ) for qw[displayName billing billingIndex id];
24              
25             has artist => (
26             is => 'ro',
27             isa => 'Net::Songkick::Artist',
28             coerce => 1,
29             );
30              
31 5     5   48 no Moose;
  5         12  
  5         27  
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) 2010, 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;