|
Games::Bowling::Scorecard::AsText - format a bowling scorecard as text |
Games::Bowling::Scorecard::AsText - format a bowling scorecard as text
version 0.100
$Id: /my/cs/projects/Games-Bowling-Scorecard/trunk/lib/Games/Bowling/Scorecard/AsText.pm 30317 2007-01-22T23:04:33.813810Z rjbs $
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 |
This module's interface is almost certain to change, whenever the author gets around to it.
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.
Ricardo SIGNES, <rjbs at cpan.org>
Please report any bugs or feature requests to the web interface at http://rt.cpan.org/NoAuth/ReportBug.html. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
Copyright 2007 Ricardo SIGNES, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|
Games::Bowling::Scorecard::AsText - format a bowling scorecard as text |