File Coverage

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

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	6	0.0
condition			n/a
subroutine	5	14	35.7
pod	7	7	100.0
total	27	63	42.8

package WWW::Kickstarter::Data::Category;

use strict;
use warnings;
no autovivification;


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


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->{_}{subcategories} = undef;

   return $self;
}


sub _set_subcategories { my $self = shift; $self->{_}{subcategories} = [ @_ ]; }


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


sub subcategories {
   my ($self) = @_;
   my $subcategories = $self->{_}{subcategories}
      or my_croak(400, "The list of subcategories is only avaiable for Category objects created by \$ks->categories()");

   return @$subcategories;
}


sub refetch              { my $self = shift;  return $self->ks->category($self->id, @_); }
sub projects             { my $self = shift;  return $self->ks->category_projects($self->id, @_); }
sub projects_recommended { my $self = shift;  return $self->ks->category_projects_recommended($self->id, @_); }


1;


__END__