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

to your Kindle

## 雛型

package WikiEngine::_;

use strict;
use Toolkit;
use Data::Dumper;

# use Data::Compare;

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 Dump
	{
		my $self = shift;
		### assert:Data::Compare(\@_, [])
		Dumper($self);
	}

1;