NAME

Games::Cards::Pair::Card - Object representation of a card.

VERSION

Version 0.06

DESCRIPTION

Only for internal use of Games::Cards::Pair class. Avoid using it directly.

METHODS

equal()

Returns 1 or 0 depending whether the two cards are same in value or one of them is a Joker.

use strict; use warnings;
use Games::Cards::Pair::Card;

my ($card1, $card2);
$card1 = Games::Cards::Pair::Card->new({ suit => 'Clubs',    value => '2' });
$card2 = Games::Cards::Pair::Card->new({ suit => 'Diamonds', value => '2' });
print "Card are the same.\n" if $card1->equal($card2);

$card2 = Games::Cards::Pair::Card->new({ value => 'Joker' });
print "Card are the same.\n" if $card1->equal($card2);

as_string()

Returns the card object in readable format. This is overloaded as string context for printing.

use strict; use warnings;
use Games::Cards::Pair::Card;

my $card = Games::Cards::Pair::Card->new({ suit => 'Clubs', value => '2' });
print "Card: $card\n";
# or
print "Card: " . $card->as_string() . "\n";

AUTHOR

Mohammad S Anwar, <mohammad.anwar at yahoo.com>

BUGS

Please report any bugs / feature requests to bug-games-cards-pair at rt.cpan.org,or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Games-Cards-Pair.I will be notified, & then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Games::Cards::Pair::Card

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright 2012 - 2014 Mohammad S Anwar.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

DISCLAIMER

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.