• 追加された行はこの色です。
  • 削除された行はこの色です。
	package X::_;
	# 雛型

	use Toolkit;
	use Data::Dumper;
	use Data::Compare;

	sub New
	{
		my $self = {};
		my($class, $arg) = @_;
		
		### assert:$class
		bless {}, $class;
	}

	sub _Init
	{
		my $self = shift;
		my($class, $arg1) = @_;
		return undef;
	}

	sub Dump
	{
		my $self = shift;
		### assert:Data::Compare(\@_, [])
		Dumper($self);
	}

	1;