File Coverage

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

Criterion	Covered	Total	%
statement	13	14	92.8
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	19	21	90.4

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

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

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__