ねむー。

あ、昨日のブログがおかしくなって2重投稿になってた（笑）

それにしても、今日も眠い。ふにゃふにゃ。

とにかく眠くて、ラッシュの中の通勤中も考え事してたら

例によって、途中から「非現実モード」で一生懸命考えてました。

両親は、それを「夢を見ている」と言うのだけど

私は「夢」はまた違うものだと思うんだけどなぁ。ふあぁ。

なにはともあれ、今日は早く帰ってきたので

昼寝の後、遊びでここの所考えてた「MayBeSo」メソッドを作ろうと思ったんだけど

ファジーなルーチンを本気で作ろうとすると、えらい事になるから気が遠くなった次第（笑）

もっとべんきょうして、もっとおりこうさんになったら、つくってみたいです。

いや、大変そうな事は全て「老後の楽しみ」に取っておいてる今日この頃です。

てな訳で、今日はめっさ簡単なメモ。

メソッドのエイリアスの作り方メモ。

メソッドtest を whoami でも getpackagename でも実行出来るようにしただけ。

・Test.pm

package Test;

use strict;
use warnings;

sub new { bless {}, shift; }

{
	no warnings 'once';
	*whoami = \&test;
	*getpackagename	= \&test;
}

sub test {
	my $me	= shift;

	print "I am ".ref $me;
}

1;

・test.pl

#!/usr/bin/perl -w

use strict;
use lib '/home/anigon';

use Test;
my $objTest	= Test->new();
$objTest->whoami();
$objTest->test();
$objTest->getpackagename();

use Test::Child;
$objTest	= Test::Child->new();
$objTest->whoami();
$objTest->test();
$objTest->getpackagename();

exit;