Changes between Version 43 and Version 44 of Perl

Timestamp:

06/24/07 14:12:22 (17 years ago)

Author:

atzm

Comment:

--

Perl

@@ -710 +710 @@
 == AUTOLOAD ==
  * 存在しないメソッドをコールしたときに呼ばれるメソッドの定義ができる
+   * 以下は，これを利用した getter/setter の実装
 {{{
 #!perl
@@ -716 +717 @@
 
 package Hoge;
-
-our $AUTOLOAD;
 
 sub new {
@@ -723 +722 @@
 }
 
-sub huge {
-    my $self = shift;
-    return "huge";
-}
-
 sub AUTOLOAD {
-    my $self = shift;
-    ( my $method = $AUTOLOAD ) =~ s/.*://g;
-    return "AUTOLOAD: $method";
-}
+    my $self   = shift;
+    my $value  = shift;
+    my $method = our $AUTOLOAD;
+
+    $method =~ s/.*:://o;
+
+    if ( $method =~ /^get_(.+)/ ) {
+        return $self->{$1};
+    }
+    elsif ( $method =~ /^set_(.+)/ ) {
+        $self->{$1} = $value;
+        return;
+    }
+    elsif ( $method eq 'DESTROY' ) {
+        return;
+    }
+
+    die sprintf( "Can't locate object method \"%s\" via package \"%s\" at %s line %u.\n",
+                 $method, __PACKAGE__, __FILE__, __LINE__ );
+}
+
 
 package main;
 
-my $hoge = new Hoge();
-print $hoge->hoge(), "\n";
-print $hoge->huge(), "\n";
+use Data::Dumper;
+
+if ( __FILE__ eq $0 ) {
+    exit( &main(@ARGV) );
+}
+
+sub main {
+    my $hoge = new Hoge();
+
+    $hoge->set_hoge("unko");
+    print $hoge->get_hoge(), "\n";
+    print Dumper($hoge);
+
+    return 0;
+}
 }}}
    * 実行結果
 {{{
-$ perl Hoge.pm 
-AUTOLOAD: hoge
-huge
+#!sh
+$ perl ./hoge.pl
+unko
+$VAR1 = bless( {
+                 'hoge' => 'unko'
+               }, 'Hoge' );
 }}}