File Coverage

blib/lib/Net/StackExchange2/V2/Questions.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	36	55.5

package Net::StackExchange2::V2::Questions;

use 5.006;
use strict;
use warnings FATAL => 'all';
use Sub::Name qw(subname);
use Net::StackExchange2::V2::Common qw(query no_params one_param);

our $VERSION = "0.05";

sub new {
	my ($class, $params) = @_;
    my $self = $params;
    bless $self, $class;

	*questions_all = subname(
	   "Net::StackExchange2::V2::Questions::questions_all",
	   no_params("questions"),
	);
	*questions = subname(
	   "Net::StackExchange2::V2::Questions::questions",
	   one_param("questions"),
	);
	*questions_answers = subname(
	   "Net::StackExchange2::V2::Questions::questions_answers",
	   one_param("questions", "answers"),
	);
	*questions_comments = subname(
	   "Net::StackExchange2::V2::Questions::questions_comments",
	   one_param("questions", "comments"),
	);
	*questions_linked = subname(
	   "Net::StackExchange2::V2::Questions::questions_linked",
	   one_param("questions", "linked"),
	);
	*questions_related = subname(
	   "Net::StackExchange2::V2::Questions::questions_related",
	   one_param("questions", "related"),
	);
	*questions_timeline = subname(
	   "Net::StackExchange2::V2::Questions::questions_timeline",
	   one_param("questions", "timeline"),
	);
	*questions_featured = subname(
	   "Net::StackExchange2::V2::Questions::questions_featured",
	   no_params("questions/featured"),
	);
	*questions_unanswered = subname(
	   "Net::StackExchange2::V2::Questions::questions_unanswered",
	   no_params("questions/unanswered"),
	);
	*questions_no_answers = subname(
	   "Net::StackExchange2::V2::Questions::questions_no_answers",
	   no_params("questions/no-answers"),
	);
    return $self;
}
1; #END of Net::StackExchange2::V2::Questions
__END__