File Coverage

blib/lib/WWW/Kickstarter/Data/User.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	6	0.0
condition			n/a
subroutine	4	11	36.3
pod	6	6	100.0
total	22	50	44.0

package WWW::Kickstarter::Data::User;

use strict;
use warnings;
no autovivification;


use WWW::Kickstarter::Data qw( );


our @ISA = 'WWW::Kickstarter::Data';


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 = $class->SUPER::_new($ks, $data);
   $self->{location} = WWW::Kickstarter::Data::Location->_new($ks, $self->{location}) if exists($self->{location});

   return $self;
}


sub id       { $_[0]{id} }
sub slug     { $_[0]{slug} }
sub name     { $_[0]{name} }
sub location { $_[0]{location} }


sub refetch          { my $self = shift;  return $self->ks->user($self->id, @_); }
sub projects_created { my $self = shift;  return $self->ks->user_projects_created($self->id, @_); }


1;


__END__