File Coverage

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

Criterion	Covered	Total	%
statement	25	30	83.3
branch	6	6	100.0
condition	3	3	100.0
subroutine	10	15	66.6
pod	7	7	100.0
total	51	61	83.6

use 5.16.0;
use warnings;
package Games::Nintendo::Mario::SMB2 0.208;

use base qw(Games::Nintendo::Mario::Hearts);

sub _names  { qw[Mario Luigi Peach Toad] }
sub _states { qw[normal] } # super isn't listed to prevent creation-as-super
sub _items  { qw[mushroom heart] }

sub _goto_hash {  {} }

sub _char_attr {
  {
  Mario => {
    power => 4,
    speed => 4,
    jump  => 4
  },
  Luigi => {
    power => 3,
    speed => 3,
    jump  => 5
  },
  Peach => {
    power => 2,
    speed => 2,
    jump  => 3
  },
  Toad => {
    power => 5,
    speed => 5,
    jump  => 2
  } }
}

sub state { ## no critic Homonym
  my $hero = shift;
  if ($hero->hearts < 1) { return "dead" }
  if ($hero->hearts > 1) { return "super" }
  else { return "normal" }
}

sub name { $_[0]->{name} }

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

  if (($item eq 'mushroom') and ($hero->max_hearts < 5)) {
    $hero->{max_hearts}++;
  }
  $hero->SUPER::powerup($item);
}

sub power { $_[0]->_char_attr->{$_[0]->name}->{power} }
sub speed { $_[0]->_char_attr->{$_[0]->name}->{speed} }
sub jump  { $_[0]->_char_attr->{$_[0]->name}->{jump} }

sub games {
  return ('Super Mario Bros. 2');
}

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

__END__