File Coverage

blib/lib/Games/Nintendo/Mario/NSMB/Wii.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	20	24	83.3

use 5.20.0;
use warnings;
package Games::Nintendo::Mario::NSMB::Wii 0.209;
# ABSTRACT: a class for Italian plumbers who wave their hands around

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

#pod =head1 WARNING!!
#pod
#pod Nobody has given RJBS a copy of NSMB Wii yet, so he hasn't played it, so this
#pod class may not be an accurate reflection of its behavior.
#pod
#pod =head1 SYNOPSIS
#pod
#pod   use Games::Nintendo::Mario::NSMB::Wii;
#pod
#pod   my $hero = Games::Nintendo::Mario::SMB->new(
#pod     name  => 'Blue Toad',
#pod     state => 'normal',
#pod   );
#pod
#pod   $hero->powerup('mushroom'); # doop doop doop!
#pod   $hero->powerup('flower');   # change clothes
#pod
#pod   $hero->damage for (1 .. 2); # 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 New Super Mario Bros. for Wii.  All of the methods
#pod described in the Mario interface exist as documented.
#pod
#pod =head2 NAMES
#pod
#pod The plumber may be named Mario or Luigi, or can be "Blue Toad" or "Yellow
#pod Toad."
#pod
#pod =head2 STATES
#pod
#pod The plumber's state may be any of: normal super fire shell mini mega ice
#pod penguin propeller
#pod
#pod =head2 POWERUPS
#pod
#pod Valid powerups are: mushroom flower shell mega_mushroom mini_mushroom
#pod ice_flower penguinsuit propeller_mushroom
#pod
#pod =method games
#pod
#pod This ruleset reflects Mario in New Super Mario Bros. Wii, the first SMB game
#pod for Nintendo Wii.
#pod
#pod =cut

use Carp ();

sub _names  { ('Mario', 'Luigi', 'Blue Toad', 'Yellow Toad') }
sub _states { qw[normal super fire shell mini mega propeller ice penguin] }
sub _items  { qw[mushroom flower shell mega_mushroom mini_mushroom propeller_mushroom ice_flower penguinsuit] }

my %__default_behavior = (
  damage   => 'dead',
  mushroom => 'super',
  flower   => 'fire',
  shell    => 'shell',
  mega_mushroom => 'mega',
  mini_mushroom => 'mini',
  propeller_mushroom => 'propeller',
  ice_flower         => 'ice',
  penguinsuit        => 'penguin',
);

my %state = (
  normal => { %__default_behavior },
  super  => {
    %__default_behavior,
    damage   => 'normal',
    mushroom => 'save',
  },
  fire   => {
    %__default_behavior,
    damage   => 'normal',
    flower   => 'save',
    mushroom => 'save',
  },
  shell  => {
    %__default_behavior,
    damage   => 'super',
    mushroom => 'save',
    flower   => 'save',
  },
  mega   => { map { $_ => 'ignore' } keys %__default_behavior },
  mini   => { %__default_behavior, mini => 'save' },

  propeller  => {
    %__default_behavior,
    damage   => 'normal',
    mushroom => 'save',
  },
  ice  => {
    %__default_behavior,
    damage   => 'normal',
    mushroom => 'save',
  },
  penguin  => {
    %__default_behavior,
    damage   => 'normal',
    mushroom => 'save',
  },
);

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

"Go Wigi!";

__END__