File Coverage

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

Criterion	Covered	Total	%
statement	12	13	92.3
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	18	20	90.0

use 5.20.0;
use warnings;
package Games::Nintendo::Mario::SMBTLL 0.209;
# ABSTRACT: a class for long-lost Italian plumbers

use parent qw(Games::Nintendo::Mario::SMB);

#pod =head1 SYNOPSIS
#pod
#pod   use Games::Nintendo::Mario::SMBLL;
#pod
#pod   my $hero = Games::Nintendo::Mario::SMB->new(
#pod     name  => 'Luigi',
#pod     state => 'normal',
#pod   );
#pod
#pod   $hero->powerup('mushroom'); # doop doop doop!
#pod   $hero->powerup('flower');   # change clothes
#pod
#pod   $hero->powerup('poison_mushroom'); # uh oh!
#pod   $hero->damage;                     # cue the Mario Death Music
#pod
#pod =head1 DESCRIPTION
#pod
#pod This class subclasses Games::Nintendo::Mario, providing a model of the behavior
#pod of the Mario Brothers in Super Mario Brothers: The Lost Levels.  All of the
#pod methods described in the Mario interface exist as documented.
#pod
#pod =head2 NAMES
#pod
#pod The plumber may be named Mario or Luigi.
#pod
#pod =head2 STATES
#pod
#pod The plumber's state may be any of: C, C, or C
#pod
#pod =head2 POWERUPS
#pod
#pod Valid powerups are: C, C, and C
#pod
#pod =method games
#pod
#pod This ruleset reflects Mario in Super Mario Bros.: The Lost Levels, the original
#pod Japanese sequel to SMB, later released as SMBTLL in the US (and now available
#pod on the Wii Virtual Console).
#pod
#pod =cut

sub _items  { qw[mushroom flower poison_mushroom] }

sub _goto_hash {
  my ($self) = @_;

  my $goto_hash = $self->SUPER::_goto_hash;

  return {
    %$goto_hash,
    poison_mushroom => $goto_hash->{damage}
  }
}

sub games {
  return (
    'Super Mario Bros.: The Lost Levels',
    # 'Super Mario Bros. 2: For Super Players',
  );
}

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

__END__