Changeset 17418 for lang/perl/Acme-Mahjong
- Timestamp:
- 08/11/08 17:22:46 (5 years ago)
- Location:
- lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong
- Files:
-
- 5 modified
-
Deck.pm (modified) (1 diff)
-
Hand.pm (modified) (3 diffs)
-
Rule/JP.pm (modified) (1 diff)
-
Tile/Suited.pm (modified) (1 diff)
-
Tile/Wind.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Deck.pm
r17415 r17418 3 3 package Acme::Mahjong::Deck; 4 4 use Moose; 5 use Moose::Util::TypeConstraints; 5 6 use Acme::Mahjong::Tile::Dragon; 6 7 use Acme::Mahjong::Tile::Suited; -
lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Hand.pm
r17405 r17418 3 3 package Acme::Mahjong::Hand; 4 4 use Moose; 5 use Moose::Util::TypeConstraints; 5 6 6 7 subtype 'Acme::Mahjong::Hand::TileList' … … 20 21 sub add { 21 22 my ($self, %args) = @_; 22 my $tile = $arg {tile};23 my $tile = $args{tile}; 23 24 my @tiles = @{ $self->tiles }; 24 25 push @tiles, $tile; … … 29 30 my ($self, %args) = @_; 30 31 31 my $tile = $arg {tile};32 my $tile = $args{tile}; 32 33 my $tiles = $self->tiles; 33 34 for my $i (0..scalar(@$tiles)) { -
lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Rule/JP.pm
r17415 r17418 7 7 8 8 no Moose; 9 10 sub calculate { } 9 11 10 12 1; -
lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Tile/Suited.pm
r17403 r17418 3 3 package Acme::Mahjong::Tile::Suited; 4 4 use Moose; 5 use Moose::Util::TypeConstraints; 5 6 6 7 with 'Acme::Mahjong::Tile'; -
lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Tile/Wind.pm
r17403 r17418 5 5 use Moose::Util::TypeConstraints; 6 6 7 with 'Acme::Ma jong::Tile';7 with 'Acme::Mahjong::Tile'; 8 8 9 9 has 'label' => (
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)