Perl/codepiece/try-catch-exception02

• [ Prev ]
• [ Next ]
• [ Perl ]

Perl/codepiece/try-catch-exception01で、基本的なエラーの捕捉方法を確認した。

ここでは、より実際のシーンを意識し、以下のシチュエーションでエラーを捕捉できるか確認する。

• require時に該当パッケージが存在しない時
• 呼ぼうとしたパッケージ関数が定義されていない時

いずれも perldiag(http://perldoc.perl.org/perldiag.html) では(F)(trappable fatal error)に分類されている。

未存在パッケージrequire・未定義関数呼び出し時のtry-catchエラー捕捉の確認

ディレクトリ構成：

./try05/
./try05/try05.pl : main
./try05/Hoge/
./try05/Hoge/Bohe.pm : empty package module

• try05/try05.pl :

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
use Error qw(:try);
sub BEGIN {
    my (undef, $__base_dir, undef) = fileparse($0);
    push(@INC, $__base_dir);
}
# 存在しないパッケージをrequireしてみる。
try {
    my $pkg_name = "Hoge::Hoge";
    eval("require $pkg_name;");
    if ($@) {
        throw Error(-text => $@);
    }
} catch Error with {
    my $e = shift;
    print Dumper($e), "\n";
};
# 存在しないパッケージ関数を呼んでみる。
try {
    my $pkg_name = "Hoge::Bohe";
    eval("require $pkg_name;");
    my $obj = $pkg_name->new();
} catch Error with {
    my $e = shift;
    print Dumper($e), "\n";
};

• try05/Hoge/Bohe.pm (空のパッケージモジュール) :

package Hoge::Bohe;
use strict;
use warnings; 
1;

• 出力

$ ./try05/try05.pl
$VAR1 = bless( {
     '-file' => 'try05/try05.pl',
     '-text' => 'Can\'t locate Hoge/Hoge.pm in @INC (@INC contains: ... try05/) at (eval 3) line 1.
',
     '-line' => 17,
     '-package' => 'main'
   }, 'Error' );

$VAR1 = bless( {
     '-file' => 'try05/try05.pl',
     '-text' => 'Can\'t locate object method "new" via package "Hoge::Bohe"',
     '-line' => '27',
     '-package' => 'Error'
   }, 'Error::Simple' );

まず、エラー捕捉の仕方が異なる点に注目する。

• 存在しないパッケージをロード： $@を手動チェックしている。
• 存在しない関数を呼び出し：try-catchに任せている。

最初、前者の方でもtry-catchに任せてみたが、 catchに捕捉されない 現象が発生した。試しに手動で$@チェックを入れてみたところ上手く行った。(evalの特性と関係するのかも知れない。)

逆に、後者の方で$@の手動チェックを入れても、そこは通らない。未定義関数の呼び出しの方では、即座にcatchへ入る(=dieがブロック中で発生している？)ようである。

いずれにせよ、パッケージモジュールロード時の eval("require $pkg_name") のエラーハンドリングは$@の手動チェックが欠かせないことを確認した。

• [ Prev ]
• [ Next ]
• [ Perl ]