File Coverage

blib/lib/Games/Nintendo/Mario/Hearts.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	4	6	66.6
condition	6	9	66.6
subroutine	13	14	92.8
pod	5	5	100.0
total	58	65	89.2

use 5.20.0;
use warnings;
package Games::Nintendo::Mario::Hearts 0.208;
# ABSTRACT: a superclass for Italian plubmers who can take a beating

use parent qw(Games::Nintendo::Mario);
use Hash::Util::FieldHash qw(fieldhash);

#pod =head1 SYNOPSIS
#pod
#pod   use Games::Nintendo::Mario::Hearts;
#pod
#pod   my $noone = Games::Nintendo::Mario::Hearts->new;
#pod
#pod   print $hero->hearts . '/' . $hero->max_hearts; # at 1/3 health
#pod   $hero->powerup('heart');                       # up to 2/3!
#pod   $hero->powerup('heart');                       # full health!
#pod
#pod   print "It's-a me!  ", $hero->name, "!\n";      # 'Mario'
#pod
#pod   $hero->powerup('heart');                       # Nothing happens.
#pod
#pod   $hero->damage for (1 .. 3);                    # cue the Mario Death Music
#pod
#pod =head1 DESCRIPTION
#pod
#pod This class subclasses Games::Nintendo::Mario, providing a class for further
#pod subclassing.  It adds the C and C methods, described below,
#pod and it causes Mario to die when his hearts count reaches zero.  This behavior
#pod is found in SMB2 and the Wario games.
#pod
#pod All of the methods described in the Mario interface exist as documented, but
#pod the only powerup in this class is 'heart' and the only state is 'normal'
#pod
#pod =method hearts
#pod
#pod This method returns the number of hearts the plumber currently has.  It
#pod defaults to 1 at creation.
#pod
#pod =method max_hearts
#pod
#pod This method returns the number of heart containers currently in the plumber's
#pod heart meter.  It defaults to 3 at creation.
#pod
#pod =method damage
#pod
#pod =method powerup
#pod
#pod These methods are defined in Games::Nintendo::Mario.
#pod
#pod =method games
#pod
#pod This is an abstract subclass for Mario classes, and does not represent any one
#pod game.
#pod
#pod =cut


sub _states { qw[normal] }
sub _items  { qw[heart] }
sub _other_defaults  { ( max_hearts => 3 ) }
sub __default_hearts { 1 };

sub _goto_hash { {} } # not used by base Hearts class

sub max_hearts {
  return $_[0]->{max_hearts}
}

fieldhash my %hearts;
sub hearts {
  my ($self) = @_;
  $hearts{ $self } //= $self->__default_hearts;
  return $hearts{ $self };
}

sub powerup {
  my $plumber  = shift;
  my $item     = shift;

  if (($item eq 'heart') and ($plumber->hearts) and ($plumber->hearts < $plumber->max_hearts)) {
    $hearts{ $plumber }++;
  }
  $plumber->SUPER::powerup($item);
}

sub damage {
  my $self = shift;
  my $item = shift;

  if ($self->hearts) {
    $self->{state} = 'dead' unless --$hearts{ $self };
  }

  $self->SUPER::damage;
}

sub games {
  return ();
}

"It's-a me!  Mario!";

__END__