bless

---

bless REF, CLASSNAME
bless REF

　REFをCLASSNAMEパッケージに所属するようにします。
　CLASSNAMEを省略すると現在のパッケージを指定したのと同じになります。

---

サンプルプログラム

use strict;

package Foo;

sub new {
	my $class = shift;
	my $name = shift;
	
	return bless {
		name => $name,
	}, $class;
}

sub print_name {
	my $self = shift;
	print $self->{name}, "\n";
}

package Main;

my $hoge = Foo->new('HogeHoge');
my $fuga = Foo->new('FugaFuga');

$hoge->print_name;
$fuga->print_name;

---

関連項目

なし