File Coverage

lib/Acme/MobileTradeFun/Utils.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	1	2	50.0
total	9	21	42.8

package Acme::MobileTradeFun::Utils;

use strict;
use warnings;

sub new {
    my ( $class, $args ) = @_;
    return bless {}, $class;
}

=head2 is_new_card

    Determines if a card is new or not

=cut

sub is_new_card {
    my ( $self, $card, $all_cards ) = @_;

    for my $pile ( @{ $all_cards } ) {
        return 0 if ( $card eq $pile );
    }
    return 1;
}

1;