File Coverage

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

Criterion	Covered	Total	%
statement	15	25	60.0
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	32	62.5

package Net::StackExchange2::V2::Posts;

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;

	*posts_all = subname(
	   "Net::StackExchange2::V2::Posts::posts_all",
	   no_params("posts"),
	);
	*posts = subname(
	   "Net::StackExchange2::V2::Posts::posts",
	   one_param("posts"),
	);
	*posts_comments = subname(
	   "Net::StackExchange2::V2::Posts::posts_comments",
	   one_param("posts", "comments"),
	);
	*posts_comments_add = subname(
	   "Net::StackExchange2::V2::Posts::posts_comments_add",
	   one_param("posts", "comments/add", {post => 1}),
	);

	*posts_revisions = subname(
	   "Net::StackExchange2::V2::Posts::posts_revisions",
	   one_param("posts", "revisions"),
	);
	*posts_suggested_edits = subname(
	   "Net::StackExchange2::V2::Posts::posts_suggested_edits",
	   one_param("posts", "suggested-edits"),
	);
    return $self;
}
1; #END of Net::StackExchange2::V2::Posts
__END__