File Coverage

blib/lib/Reddit/Client/Message.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 24 28 85.7


line stmt bran cond sub pod time code
1             package Reddit::Client::Message;
2              
3 5     5   52 use strict;
  5         13  
  5         167  
4 5     5   29 use warnings;
  5         11  
  5         135  
5 5     5   27 use Carp;
  5         10  
  5         329  
6              
7             require Reddit::Client::Thing;
8              
9 5     5   40 use base qw/Reddit::Client::Thing/;
  5         11  
  5         791  
10 5         33 use fields qw/
11             author
12             body
13             body_html
14             context
15             created
16             created_utc
17             dest
18             distinguished
19             first_message
20             first_message_name
21             likes
22             link_title
23             new
24             parent_id
25             permalink
26             replies
27             subject
28             subreddit
29             was_comment
30 5     5   41 /;
  5         18  
31              
32              
33 5     5   957 use constant type => "t4";
  5         10  
  5         615  
34              
35             sub get_web_url {
36 0     0 0   my $this = shift;
37 0           return $this->{session}->get_origin()."/message/messages/".$this->{id};
38             }
39              
40             1;
41             __END__