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

to your Kindle

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

=head1

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

*雛型 [#le6c20a0]
Perlモジュールの雛型。

=cut

package WikiEngine::_;
 package WikiEngine::_;

use strict;
use lib 'S:\Perl\_lib';
 use strict;
 use lib 'S:\Perl\_lib';

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

use Toolkit;
	# use Smart::Comments qw/#####/;
 use Toolkit;
 	# use Smart::Comments qw/#####/;

#use WikiEngine::Base; # [[WikiEngine/Base]];  
 #use WikiEngine::Base; # [[WikiEngine/Base]];  

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:$self
	# 運用中のみのアサーション
	##### assert:$class
	bless $self, $class;
}
 sub New
 {
 	my $self = {};
 	my($class, $arg) = @_;
 	
 	$self->{attr} = 'value';
 	
 	# 開発時アサーション
 	### assert:$self
 	# 運用中のみのアサーション
 	##### 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);
 }

sub MethodA
{
	my $self = shift;
	my($arg1) = @_;
	
	# 致命的エラーのとき
	open my $f, '>', 'data.file' or die $!;
	close $f or die $!;
	
	# （復帰できる）エラー別に対処するとき
	try {
	}
	catch Error::_::Err1 with {
		# 独自エラーの処理1
		my $e = shift;
	}
	except {
		# 独自エラーの処理2
		my $e = shift;
		my $hander = sub {
			$e->{-object} = $self;
			throw $e;
		};
		reutrn {
			'Error::_::Err2' => $hander,
			'Error::_::Err3' => $hander,
			'Error::_::Err4' => $hander,
		};
	}
	otherwise {
		# その他のエラー処理
		my $e = shift;
		throw Error::Simple->new($e->{-text});
	}
	finally {
	};
	
	1;
}
 sub MethodA
 {
 	my $self = shift;
 	my($arg1) = @_;
 	
 	# 致命的エラーのとき
 	open my $f, '>', 'data.file' or die $!;
 	close $f or die $!;
 	
 	# （復帰できる）エラー別に対処するとき
 	try {
 	}
 	catch Error::_::Err1 with {
 		# 独自エラーの処理1
 		my $e = shift;
 	}
 	except {
 		# 独自エラーの処理2
 		my $e = shift;
 		my $hander = sub {
 			$e->{-object} = $self;
 			throw $e;
 		};
 		return {
 			'Error::_::Err2' => $hander,
 			'Error::_::Err3' => $hander,
 			'Error::_::Err4' => $hander,
 		};
 	}
 	otherwise {
 		# その他のエラー処理
 		my $e = shift;
 		throw Error::Simple->new($e->{-text});
 	}
 	finally {
 	};
 	
 	1;
 }

# このクラス以下の独自エラー定義
package Error::_::Err1;
use base qw/Error::Simple/;
 # このクラス以下の独自エラー定義
 package Error::_::Err1;
 use base qw/Error::Simple/;

1;
 1;