The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.


Games::Nintendo::Mario::Hearts -- a superclass for Italian plubmers who can take a beating


  use Games::Nintendo::Mario::Hearts;

  my $noone = new Games::Nintendo::Mario::Hearts;
  print $hero->hearts . '/' . $hero->max_hearts; # at 1/3 health
  $hero->powerup('heart');                       # up to 2/3!
  $hero->powerup('heart');                       # full health!

  print "It's-a me!  ", $hero->name, "!\n";      # 'Mario'

  $hero->powerup('heart');                       # Nothing happens.

  $hero->damage for (1 .. 3);                    # cue the Mario Death Music


This class subclasses Games::Nintendo::Mario, providing a class for further subclassing. It adds the hearts and max_hearts methods, described below, and it causes Mario to die when his hearts count reaches zero. This behavior is found in SMB2 and the Wario games.

All of the methods described in the Mario interface exist as documented, but the only powerup in this class is 'heart' and the only state is 'normal'



This method returns the number of hearts the plumber currently has. It defaults to 1 at creation.


This method returns the number of heart containers currently in the plumber's heart meter. It defaults to 3 at creation.


Ricardo SIGNES <>


Copyright 2003 by Ricardo Signes <>

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


1 POD Error

The following errors were encountered while parsing the POD:

Around line 97:

You forgot a '=back' before '=head1'