File Coverage

blib/lib/Reddit/Client/SubReddit.pm
Criterion Covered Total %
statement 18 26 69.2
branch n/a
condition n/a
subroutine 6 9 66.6
pod 2 3 66.6
total 26 38 68.4


line stmt bran cond sub pod time code
1             package Reddit::Client::SubReddit;
2              
3 5     5   33 use strict;
  5         10  
  5         152  
4 5     5   24 use warnings;
  5         9  
  5         122  
5 5     5   25 use Carp;
  5         10  
  5         345  
6              
7             require Reddit::Client::Thing;
8              
9 5     5   247 use base qw/Reddit::Client::Thing/;
  5         16  
  5         691  
10 5         29 use fields qw/
11             created
12             created_utc
13             description
14             display_name
15             header_img
16             header_size
17             header_title
18             over18
19             public_description
20             public_traffic
21             quarantine
22             subreddit_type
23             subscribers
24             title
25             url
26 5     5   40 /;
  5         9  
27              
28 5     5   708 use constant type => "t5";
  5         12  
  5         1032  
29              
30             # thse functions are currently unavailable
31             sub get_links {
32 0     0 0   my ($self, %param) = @_;
33 0           return $self->{session}->get_links(subreddit => $self->{display_name}, %param);
34             }
35              
36             sub submit_link {
37 0     0 1   my ($self, %param) = @_;
38 0           $param{subreddit} = $self->{display_name};
39 0           return $self->{session}->submit_link(%param);
40             }
41              
42             sub submit_text {
43 0     0 1   my ($self, %param) = @_;
44 0           $param{subreddit} = $self->{display_name};
45 0           return $self->{session}->submit_text(%param);
46             }
47              
48             1;
49             __END__