File Coverage

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

Criterion	Covered	Total	%
statement	15	53	28.3
branch	0	14	0.0
condition	0	3	0.0
subroutine	5	26	19.2
pod	20	20	100.0
total	40	116	34.4

package WWW::Kickstarter::Data::Project;

use strict;
use warnings;
no autovivification;


use WWW::Kickstarter::Data       qw( );
use WWW::Kickstarter::Data::User 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->{creator } = WWW::Kickstarter::Data::User    ->_new($ks, $self->{creator }) if exists($self->{creator });
   $self->{category} = WWW::Kickstarter::Data::Category->_new($ks, $self->{category}) if exists($self->{category});
   $self->{location} = WWW::Kickstarter::Data::Location->_new($ks, $self->{location}) if exists($self->{location});

   if (exists($self->{rewards})) {
      for my $reward (@{ $self->{rewards} }) {
         $reward = WWW::Kickstarter::Data::Reward->_new($ks, $reward);
      }
   }

   return $self;
}


sub id            { $_[0]{id} }
sub slug          { $_[0]{slug} }
sub name          { $_[0]{name} }
sub url           { $_[0]{urls}{web}{project} }
sub blurb         { $_[0]{blurb} }
sub launched_at   { $_[0]{launched_at} }    # When project started
sub deadline      { $_[0]{deadline} }       # When project ends
sub backers_count { $_[0]{backers_count} }
sub currency      { $_[0]{currency} }
sub goal          { $_[0]{goal} }
sub pledged       { $_[0]{pledged} }
sub progress      { $_[0]{pledged} / $_[0]{goal} }
sub progress_pct  { int( $_[0]{pledged} / $_[0]{goal} * 100 ) }
sub creator       { $_[0]{creator} }
sub location      { $_[0]{location} }
sub category      { $_[0]{category} }
sub category_id   { $_[0]{category}{id} }
sub category_name { $_[0]{category}{name} }


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

sub rewards {
   my ($self, %opts) = @_;
   my $force = delete($opts{force});
   return @{ $self->{rewards} } if !$force && $self->{rewards};
   return $self->ks->project_rewards($self->id, %opts);
}


1;


__END__