File Coverage

blib/lib/WWW/Jawbone/Up/User.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package WWW::Jawbone::Up::User;
2              
3 6     6   103 use 5.010;
  6         21  
  6         280  
4 6     6   33 use strict;
  6         19  
  6         183  
5 6     6   32 use warnings;
  6         11  
  6         165  
6              
7 6     6   39 use base 'WWW::Jawbone::Up::JSON';
  6         13  
  6         967  
8              
9             __PACKAGE__->add_accessors(
10             qw(first last name short_name), {
11             friend => 'user_is_friend'
12             });
13              
14             sub image {
15 1     1 0 3 my $self = shift;
16 1         10 return 'https://jawbone.com/' . $self->{image};
17             }
18              
19             1;
20