File Coverage

blib/lib/WWW/Kickstarter/Data.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	32	53.1

package WWW::Kickstarter::Data;

use strict;
use warnings;
no autovivification;


use WWW::Kickstarter::Error qw( my_croak );


sub _new {
   my_croak(400, "Incorrect usage") if @_ < 3;
   my ($class, $ks, $data, %opts) = @_;

   if (my @unrecognized = keys(%opts)) {
      my_croak(400, "Unrecognized parameters @unrecognized");
   }

   my $self = bless($data, $class);
   $self->{_} = {};
   $self->{_}{ks} = $ks;
   return $self;
}


sub ks { $_[0]{_}{ks} }


1;


__END__