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   40 use strict;
  5         14  
  5         176  
4 5     5   30 use warnings;
  5         14  
  5         138  
5 5     5   28 use Carp;
  5         12  
  5         349  
6              
7             require Reddit::Client::Thing;
8              
9 5     5   34 use base qw/Reddit::Client::Thing/;
  5         13  
  5         873  
10 5         37 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   51 /;
  5         15  
31              
32              
33 5     5   931 use constant type => "t4";
  5         24  
  5         654  
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__