Changes between Version 37 and Version 38 of Perl

Timestamp:

05/16/07 14:21:11 (19 years ago)

Author:

atzm

Comment:

--

Perl

@@ -707 +707 @@
      * 日本語で表示されているのは，POSIX の strftime が勝手に整形したから (ロケールが ja_JP になっているため)
      * {{{%N}}} は POSIX の strptime がナノ秒を認識できないから (DateTime->strftime / !DateTime::Format::Strptime::strftime を使えばどうにかなることはなる)
+
+== AUTOLOAD ==
+ * 存在しないメソッドをコールしたときに呼ばれるメソッドの定義ができる
+{{{
+#!perl
+use strict;
+use warnings;
+
+package Hoge;
+
+our $AUTOLOAD;
+
+sub new {
+    return bless( {}, shift );
+}
+
+sub huge {
+    my $self = shift;
+    return "huge";
+}
+
+sub AUTOLOAD {
+    my $self = shift;
+    ( my $method = $AUTOLOAD ) =~ s/.*://g;
+    return "AUTOLOAD: $method";
+}
+
+package main;
+
+my $hoge = new Hoge();
+print $hoge->hoge(), "\n";
+print $hoge->huge(), "\n";
+}}}
+   * 実行結果
+{{{
+$ perl Hoge.pm 
+AUTOLOAD: hoge
+huge
+}}}