Games::Bowling::Scorecard::AsText - format a bowling scorecard as text
version 0.105
use Games::Bowling::Scorecard; my $card = Games::Bowling::Scorecard->new; $card->record(6,1); # slow start $card->record(7,2); # getting better $card->record(10); # strike! $card->record(9,1); # picked up a spare $card->record(10) for 1 .. 3; # turkey! $card->record(0,0); # clearly distracted by something $card->record(8,2); # amazingly picked up 7-10 split $card->record(10, 9, 1); # pick up a bonus spare print Games::Bowling::Scorecard::AsText->card_as_text($card);
The above outputs:
+-----+-----+-----+-----+-----+-----+-----+-----+-----+-------+ | 6 1 | 7 2 | X | 9 / | X | X | X | - - | 8 / | X 9 / | | 7 | 16 | 36 | 56 | 86 | 106 | 116 | 116 | 136 | 156 |
So, you've written a bowling record-keeper and now you want to print out scorecards to your dynamic Gopher site. Games::Bowling::Scorecard has taken care of the scoring, but now you need to worry about all those slashes and dashes and X's
my $text = Games::Bowling::Scorecard::AsText->card_as_text($card);
Given a scorecard, this method returns a three-line text version of the card, using standard notation. A total is kept only through the last non-pending frame.
This module's interface is almost certain to change, whenever the author gets around to it.
Ricardo SIGNES <rjbs@cpan.org>
This software is copyright (c) 2013 by Ricardo SIGNES.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.