File Coverage

blib/lib/Reddit/Client/MoreComments.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch	0	8	0.0
condition	0	2	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	24	44	54.5

package Reddit::Client::MoreComments;

use strict;
use warnings;
use Carp;

require Reddit::Client::Thing;

use base   qw/Reddit::Client::Thing/;
use fields qw/
	children count depth parent_id link_id
/;

use constant type => "more";

sub get_collapsed_comments {
	my ($this, %param) = @_;
	my $linkid = $this->{link_id} || $param{link_id} || undef;
	print "MoreComments::get_collapsed_comments: link_id is required. Normally this should populate on its own. It being undefined could be the sign of an issue elsewhere. You can set it manually by passing in a link_id." unless $linkid;
	return unless $linkid;

	my %data = (
		link_id	=> $linkid,
		children=> $this->{children},
	);
	$data{sort}	= $param{sort} if $param{sort};
	$data{id}	= $param{id} if $param{id};

	return $this->{session}->get_collapsed_comments( %data );
}

1;

__END__