Games::Cards::Bridge::Rubber Object for Bridge (card game) Rubber scoring
Download

Games::Cards::Bridge::Rubber Ranking & Summary

Games::Cards::Bridge::Rubber Tags

Perl module scoring perl Rubber scoring Bridge object Rubber

Games::Cards::Bridge::Rubber Description

Object for Bridge (card game) Rubber scoring Games::Cards::Bridge::Rubber is an object for Bridge (card game) Rubber scoring.SYNOPSISThis module provides a class for creating Bridge rubber objects, including the results and scoring and current state of the rubber. use Games::Cards::Bridge::Rubber; sub show_score { my $rubber = shift; printf "Totals (above/below): We = %d/%d They = %d/%d ", $rubber->we_above, $rubber->we_below, $rubber->they_above, $rubber->they_below; printf " Legs: We = %d They = %d ", $rubber->we_leg, $rubber->they_leg; printf " Vul: We = %d They = %d ", $rubber->we_vul, $rubber->they_vul; printf "==COMPLETE== We: %d They: %d ", $rubber->we_score, $rubber->they_score if $rubber->complete; } my $rubber = Games::Cards::Bridge::Rubber->new; show_score($rubber); foreach my $opts ( { direction => 'we', trump => 'H', bid => '2', made => '4' }, { direction => 'they', trump => 'S', bid => '4', down => '2', dbl => 1 }, { direction => 'they', trump => 'N', bid => '3', made => '4' }, { direction => 'they', trump => 'S', bid => '3', made => '3' }, { direction => 'they', trump => 'D', bid => '2', down => '2' }, { direction => 'we', trump => 'H', bid => '6', made => '7', dbl => 1 }, { direction => 'they', trump => 'N', bid => '1', made => '2' }, { direction => 'we', trump => 'C', bid => '3', made => '3' }, { direction => 'they', trump => 'H', bid => '3', made => '3' }, ){ $rubber->contract( %$opts ); show_score($rubber); } Requirements: · Perl

Games::Cards::Bridge::Rubber Related Software