File Coverage

blib/lib/WWW/Jawbone/Up/Feed.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package WWW::Jawbone::Up::Feed;
2              
3 6     6   185 use 5.010;
  6         21  
  6         259  
4 6     6   36 use strict;
  6         10  
  6         610  
5 6     6   35 use warnings;
  6         10  
  6         212  
6              
7 6     6   30 use base 'WWW::Jawbone::Up::JSON';
  6         12  
  6         4226  
8              
9 6     6   39 use DateTime;
  6         16  
  6         586  
10              
11             __PACKAGE__->add_accessors(
12             qw(title date type reached_goal), {
13             timezone => 'tz',
14             });
15              
16             __PACKAGE__->add_time_accessors(qw(created updated));
17              
18             __PACKAGE__->add_subclass(user => 'WWW::Jawbone::Up::User');
19              
20             sub image {
21 0     0 0   my $self = shift;
22 0           return 'https://jawbone.com' . $self->{image};
23             }
24              
25             1;