File Coverage

blib/lib/Game/RockPaperScissorsLizardSpock.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	10	10	100.0
condition	5	6	83.3
subroutine	5	5	100.0
pod	1	1	100.0
total	43	44	97.7

package Game::RockPaperScissorsLizardSpock;

use strict;
use warnings;

$Game::RockPaperScissorsLizardSpock::VERSION = '0.01';

my %choices = (
    'rock'     => 0,
    'Spock'    => 1,
    'paper'    => 2,
    'lizard'   => 3,
    'scissors' => 4,
);

sub import {
    my $caller = caller();
    no strict 'refs';    ## no critic
    *{ $caller . '::rpsls' } = \&rpsls;
}

sub rpsls {
    my ( $player1, $player2 ) = @_;
    return if !defined $player1 || !exists $choices{$player1};
    if ( defined $player2 ) {
        return if !exists $choices{$player2};
    }
    else {
        $player2 = ( keys %choices )[ rand keys %choices ];
    }

    return 3 if $choices{$player1} == $choices{$player2};

    my $difference = ( $choices{$player1} - $choices{$player2} ) % 5;

    if ( $difference == 1 || $difference == 2 ) {
        return 1;
    }
    else {
        return 2;
    }
}

1;

__END__