File Coverage

blib/lib/Chess4p/Move.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	43	43	100.0

# -*- mode: cperl -*-
package Chess4p::Move;

use strict;
use warnings;
use v5.36;

use Chess4p::Common;

use overload ('""', => 'uci');

sub new {
    my ($class, $from, $to, $promotion) = @_;
    my $href = {};
    $href->{from} = $from;
    $href->{to} = $to;
    $href->{promotion} = $promotion;
    return bless $href, $class;
}

sub from { ## no critic (Subroutines::RequireArgUnpacking)
    return $_[0]->{from};
}

sub to { ## no critic (Subroutines::RequireArgUnpacking)
    return $_[0]->{to};
}

sub promotion { ## no critic (Subroutines::RequireArgUnpacking)
    return $_[0]->{promotion};
}

sub uci { ## no critic (Subroutines::RequireArgUnpacking)
    my $result = "$Chess4p::Board::square_names{$_[0]->from()}$Chess4p::Board::square_names{$_[0]->to()}";
    $result .= lc($_[0]->promotion()) if defined $_[0]->promotion();
    return $result;
}


1;



__END__