:i/Perlモジュールの雛型のバックアップ差分(No.6)

to your Kindle

バックアップ一覧
現在との差分を表示
現在との差分 - Visual を表示
ソースを表示
バックアップを表示
:i/Perlモジュールの雛型へ行く。

追加された行はこの色です。
削除された行はこの色です。

RIGHT:&tag(クラス,更新中);
# &tag(クラス,更新中);

## 雛型
 package WikiEngine::_;
package WikiEngine::_;

 use strict;
 use Toolkit;
 use Data::Dumper;
use strict;
use Toolkit;
use Data::Dumper;
# use Data::Compare;

 our($VERSION, @ISA);
 $VERSION = 0.01;
 @ISA = qw(WikiEngine);
our($VERSION, @ISA);
$VERSION = 0.01;
@ISA = qw(WikiEngine);

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

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

	1;
1;