File Coverage

blib/lib/Freecell/Deal/MS.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	30	100.0

package Freecell::Deal::MS;
$Freecell::Deal::MS::VERSION = '0.4.0';
use strict;
use warnings;

use Math::RNG::Microsoft::FCPro ();

use Class::XSAccessor {
    constructor => 'new',
    accessors   => [qw(deal)],
};

my @INITIAL_CARDS = (
    map {
        my $s = $_;
        map { $s . $_ } qw/C D H S/;
    } ( 'A', ( 2 .. 9 ), 'T', 'J', 'Q', 'K' )
);

sub as_str
{
    my ($self) = @_;

    my @cards = @INITIAL_CARDS;
    Math::RNG::Microsoft::FCPro->new( seed => scalar( $self->deal ) )
        ->shuffle( \@cards );
    my @lines = ( map { [ ':', ] } 0 .. 7 );
    my $i     = -1;
    while (@cards)
    {
        push @{ $lines[ ( ( ++$i ) & 7 ) ] }, pop(@cards);
    }
    my $str = join "", map { "@$_\n" } @lines;
    return $str;
}

1;

__END__