File Coverage

blib/lib/Net/StackExchange2/V2.pm

Criterion	Covered	Total	%
statement	69	116	59.4
branch	0	2	0.0
condition			n/a
subroutine	23	43	53.4
pod	0	20	0.0
total	92	181	50.8

package Net::StackExchange2::V2;


use 5.006;
use strict;
use warnings FATAL => 'all';
use Data::Dumper;
use Net::StackExchange2::V2::Answers;
use Net::StackExchange2::V2::AccessTokens;
use Net::StackExchange2::V2::Badges;
use Net::StackExchange2::V2::Comments;
use Net::StackExchange2::V2::Errors;
use Net::StackExchange2::V2::Events;
use Net::StackExchange2::V2::Info;
use Net::StackExchange2::V2::Posts;
use Net::StackExchange2::V2::Privileges;
use Net::StackExchange2::V2::Questions;
use Net::StackExchange2::V2::Revisions;
use Net::StackExchange2::V2::Search;
use Net::StackExchange2::V2::Sites;
use Net::StackExchange2::V2::SuggestedEdits;
use Net::StackExchange2::V2::Tags;
use Net::StackExchange2::V2::Users;
use Net::StackExchange2::V2::Filters;
use Net::StackExchange2::V2::Inbox;
use Net::StackExchange2::V2::Notifications;

our $VERSION = "0.05";

sub new {
	my ($class, $params) = @_;
	my $self = undef;
	if($params) {
		$self =  $params;
	} else {
		$self = {};
	}
	bless $self, $class;
	return $self;
}
sub answers {
	my $self = shift;
	return Net::StackExchange2::V2::Answers->new({ %$self });
}
sub access_tokens {
	my $self = shift;
	return Net::StackExchange2::V2::AccessTokens->new({ %$self });
}
sub badges {
	my $self = shift;
	return Net::StackExchange2::V2::Badges->new({ %$self });
}
sub comments {
	my $self = shift;
	return Net::StackExchange2::V2::Comments->new({ %$self });
}
sub info {
	my $self = shift;
	print "info...\n";
	print Dumper($self);
	return Net::StackExchange2::V2::Info->new({ %$self });
}
sub posts {
	my $self = shift;
	return Net::StackExchange2::V2::Posts->new({ %$self});
}
sub privileges {
	my $self = shift;
	return Net::StackExchange2::V2::Privileges->new({ %$self });
}
sub questions {
	my $self = shift;
	return Net::StackExchange2::V2::Questions->new( { %$self });
}
sub revisions {
	my $self = shift;
	return Net::StackExchange2::V2::Revisions->new({ %$self });
}
sub search {
	my $self = shift;
	return Net::StackExchange2::V2::Search->new({ %$self });
}
sub sites {
	my $self = shift;
	return Net::StackExchange2::V2::Sites->new({ %$self });
}
sub errors {
	my $self = shift;
	return Net::StackExchange2::V2::Errors->new({ %$self });
}
sub suggested_edits {
	my $self = shift;
	return Net::StackExchange2::V2::SuggestedEdits->new({ %$self });
}
sub tags {
	my $self = shift;
	return Net::StackExchange2::V2::Tags->new({ %$self });
}
sub users {
	my $self = shift;
	return Net::StackExchange2::V2::Users->new({ %$self });
}
sub events {
	my $self = shift;
	return Net::StackExchange2::V2::Events->new({ %$self });
}
sub filters {
	my $self = shift;
	return Net::StackExchange2::V2::Filters->new({ %$self });
}
sub inbox {
	my $self = shift;
	return Net::StackExchange2::V2::Inbox->new({ %$self });
}
sub notifications {
	my $self = shift;
	return Net::StackExchange2::V2::Notifications->new({ %$self });
}
1; #End of StackExchange2::V2
__END__