Index: /lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm
===================================================================
--- /lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm (revision 6878)
+++ /lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm (revision 6881)
@@ -11,5 +11,5 @@
 
 use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw(space black white out));
+__PACKAGE__->mk_accessors(qw(space black white out pass));
 
 our $B_SIZE = 19;
@@ -34,4 +34,5 @@
             'ji'      => 0,
         },
+        'pass'  => 0,
     };
 
@@ -91,4 +92,5 @@
         return;
     }
+    $self->{'pass'} = 0;
     $self->{'board'}[ $points->[1] ][ $points->[0] ] = $symbol;
     $self->{'teban'} = $self->other_side( $self->{'teban'} );
@@ -111,4 +113,9 @@
 sub pass {
     my ($self) = @_;
+    $self->{'pass'}++;
+    if ($self->{'pass'} >= '2') {
+        $self->end;
+        return;
+    }
     $self->{'teban'} = $self->other_side( $self->{'teban'} );
 }
@@ -117,4 +124,9 @@
     my ( $self, $symbol ) = @_;
     return ( $symbol eq $BLACK ) ? $WHITE : $BLACK;
+}
+
+sub end {
+    my ($self) = @_;
+    print "[TODO] end.\n";
 }
 
@@ -167,4 +179,6 @@
 =item show
 Show play field.
+=item end
+End the game.
 =back
 
Index: /lang/perl/Games-Go/trunk/bin/start_go.pl
===================================================================
--- /lang/perl/Games-Go/trunk/bin/start_go.pl (revision 6878)
+++ /lang/perl/Games-Go/trunk/bin/start_go.pl (revision 6881)
@@ -61,7 +61,5 @@
         }
         elsif ( $in eq 'p' ) {
-
-            # [TODO]pass.
-            return;
+            $go->pass;
         }
         elsif ( $in eq 'resign' ) {
Index: /lang/perl/Games-Go/trunk/README
===================================================================
--- /lang/perl/Games-Go/trunk/README (revision 3771)
+++ /lang/perl/Games-Go/trunk/README (revision 6881)
@@ -1,18 +1,3 @@
 Games-Go-Play version 0.0.1
-
-[ REPLACE THIS...
-
-  The README is used to introduce the module and provide instructions on
-  how to install the module, any machine dependencies it may have (for
-  example C compilers and installed libraries) and any other information
-  that should be understood before the module is installed.
-
-  A README file is required for CPAN modules since CPAN extracts the
-  README file from a module distribution so that people browsing the
-  archive can use it get an idea of the modules uses. It is usually a
-  good idea to provide version information here so that people can
-  decide whether fixes for the module are worth downloading.
-]
-
 
 INSTALLATION