File Coverage

blib/lib/WWW/XBoxLive/Gamercard.pm
Criterion Covered Total %
statement 18 18 100.0
branch 6 6 100.0
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1 3     3   19865 use strict;
  3         6  
  3         116  
2 3     3   15 use warnings;
  3         7  
  3         212  
3              
4             package WWW::XBoxLive::Gamercard;
5             {
6             $WWW::XBoxLive::Gamercard::VERSION = '1.123160';
7             }
8              
9             # ABSTRACT: Represents an XBox Live Gamercard
10              
11 3         20 use Object::Tiny qw{
12             account_status
13             bio
14             gamerscore
15             gamertag
16             gender
17             is_valid
18             location
19             motto
20             name
21             profile_link
22             recent_games
23             reputation
24 3     3   3497 };
  3         2678  
25              
26             sub avatar_small {
27 3     3 1 8326360 my ($this) = @_;
28              
29 3 100       104 return unless $this->gamertag;
30              
31 2         69 return sprintf( 'http://avatar.xboxlive.com/avatar/%s/avatarpic-s.png',
32             $this->gamertag );
33             }
34              
35             sub avatar_large {
36 3     3 1 238818 my ($this) = @_;
37              
38 3 100       89 return unless $this->gamertag;
39              
40 2         62 return sprintf( 'http://avatar.xboxlive.com/avatar/%s/avatarpic-l.png',
41             $this->gamertag );
42             }
43              
44             sub avatar_body {
45 3     3 1 205254 my ($this) = @_;
46              
47 3 100       97 return unless $this->gamertag;
48              
49 2         59 return sprintf( 'http://avatar.xboxlive.com/avatar/%s/avatar-body.png',
50             $this->gamertag );
51             }
52              
53             1;
54              
55              
56             __END__