An role provides extension of VANAMBURG::Packet that provides methods for useful for stacks in SHoCKeD order.
my $arrayref = $packet->suit_cycle;
Returns an array reference of 4 VANAMBURG::OrderedSuit objects representing the order of suits in a SHoCkeD stack.
This is a short cut to accessing VANAMBURG::SuitSingletonSHoCkeD::suit_cycle.
Returns the mate of the card passed as input.
my $heart = $packet->opposite_suit(VANAMBURG::SuitSingletonSHoCkeD->instance->diamond);
This is a shortcut to VANAMBURG::SuitSingletonSHoCkeD::opposite_suit
Returns the suit following the input suit for a SHoCkeD packet.
my $heart = $packet->next_suit(VANAMBURG::SuitSingletonSHoCkeD->instance->spade); my $spade = $packet->next_suit(VANAMBURG::SuitSingletonSHoCkeD->instance->diamond);
This is a short cut to VANAMBURG::SuitSingletonSHoCkeD::next_suit
Returns the suit preceding the input suit for a SHoCkeD packet.
my $heart = $packet->next_suit(VANAMBURG::SuitSingletonSHoCkeD->instance->club); my $diamond = $packet->next_suit(VANAMBURG::SuitSingletonSHoCkeD->instance->spade);
This is a short cut to VANAMBURG::SuitSingletonSHoCkeD::previous_suit
To install VANAMBURG::Magic, copy and paste the appropriate command in to your terminal.
cpanm
cpanm VANAMBURG::Magic
CPAN shell
perl -MCPAN -e shell install VANAMBURG::Magic
For more information on module installation, please visit the detailed CPAN module installation guide.