Changeset 25060

Timestamp:

11/27/08 12:25:37 (4 years ago)

Author:

mattn

Message:

消そう

Files:

• lang/perl/Shika/trunk/lib/Shika.pm (modified) (1 diff)

lang/perl/Shika/trunk/lib/Shika.pm

@@ -25 +25 @@
     my $n = shift;
     my %attr = @_;
-    $attr{is} ||= 'ro';
     no strict 'refs';
     *{"$pkg\::$n"} = sub {
         return $_[0]->{$n} if @_ == 1;
-        die "Cannot assign a value to a read-only accessor" if $attr{is} eq 'ro';
         return $_[0]->{$n} = $_[1] if @_ == 2;
         shift->{$n} = \@_;