{{tag> note:perl note:perl:oop}}
---json
{
    "title":"関数の再定義",
    "description":"関数を再定義するサンプルを作ってみました"
}
---
\\
==== <icon name="md:card-text-outline" color="#0000ff" height="32px" width="32px"/> 関数の再定義 ====
\\
関数を再定義するサンプルを作ってみました。\\

まず、

<code perl>
package M;

use Data::Dumper;

sub new {
	my $class = shift;
	my $self = { @_ };
	bless($self, $class);
#	$self->_init();
	return $self;
}

sub a {
	print "** original\n";
	my $self = shift;
	my $chr = shift;

	printf "** (%s)\n", join(',', caller(0));
	printf "** chr=[%s]\n", $chr;

	print "[caller]\n".Dumper(caller)."[/caller]\n";
	print "\n";
}

1;
</code>

のようにモジュールを作成し、メインプログラムに、

<code perl>
use M;

my $m = new M;

$m->a("O");		# 関数呼び出し

# このあと関数の上書き
package M;

sub a {
	print "** overwrite\n";
	my $self = shift;
	my $chr = shift;

	printf "** (%s)\n", join(',', caller(0));
	printf "** chr=[%s]\n", $chr;
	print "\n";
}
</code>

のように関数M::aを再定義したプログラムを作成しました。\\

実行してみると、\\

<code perl>
** overwrite
** (main,z.pl,6,M::a,1,,,,256,,)
** chr=[O]
</code>

のようになり、ちなみに再定義前では、\\

<code perl>
** original
** (main,z.pl,6,M::a,1,,,,256,,)
** chr=[O]
[caller]
$VAR1 = 'main';
$VAR2 = 'z.pl';
$VAR3 = 6;
[/caller]
</code>

のようになります。\\

用途としてどのようなものがあるのかよくわかりません。\\

~~DISCUSSION~~