Changeset 17418 for lang/perl/Acme-Mahjong

Timestamp:

08/11/08 17:22:46 (5 years ago)

Author:

daisuke

Message:

fix compilation problems

Location:

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong

Files:

• 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)

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Deck.pm

@@ -3 +3 @@
 package Acme::Mahjong::Deck;
 use Moose;
+use Moose::Util::TypeConstraints;
 use Acme::Mahjong::Tile::Dragon;
 use Acme::Mahjong::Tile::Suited;

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Hand.pm

@@ -3 +3 @@
 package Acme::Mahjong::Hand;
 use Moose;
+use Moose::Util::TypeConstraints;
 
 subtype 'Acme::Mahjong::Hand::TileList'
@@ -20 +21 @@
 sub add {
     my ($self, %args) = @_;
-    my $tile = $arg{tile};
+    my $tile = $args{tile};
     my @tiles = @{ $self->tiles };
     push @tiles, $tile;
@@ -29 +30 @@
     my ($self, %args) = @_;
 
-    my $tile = $arg{tile};
+    my $tile = $args{tile};
     my $tiles = $self->tiles;
     for my $i (0..scalar(@$tiles)) {

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Rule/JP.pm

@@ -7 +7 @@
 
 no Moose;
+
+sub calculate { }
 
 1;

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Tile/Suited.pm

@@ -3 +3 @@
 package Acme::Mahjong::Tile::Suited;
 use Moose;
+use Moose::Util::TypeConstraints;
 
 with 'Acme::Mahjong::Tile';

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Tile/Wind.pm

@@ -5 +5 @@
 use Moose::Util::TypeConstraints;
 
-with 'Acme::Majong::Tile';
+with 'Acme::Mahjong::Tile';
 
 has 'label' => (