File Coverage

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

Criterion	Covered	Total	%
statement	18	25	72.0
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	33	72.7

package Net::StackExchange2::V2::Info;

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

our $VERSION = "0.05";

sub new {
	print "egg2";
	print Dumper(@_);

	my ($class, $params) = @_;
    my $self = $params;
#print "class, oparams\n";
#print Dumper($class, $params);
   bless $self, $class;

	*info = subname(
	   "Net::StackExchange2::V2::Info::info",
	   no_params("info"),
	);
    return $self;
}
1; #END of Net::StackExchange2::V2::Info
__END__