Class-ErrorHandler

名称 Class::ErrorHandler - 错误处理的基类 概要 package Foo; use base qw( Class::ErrorHandler ); sub class_method { my $class = shift; ... return $class->error("Help!") unless $continue; } sub object_method { my $obj = shift; ... return $obj->error("I am no more") unless $continue; } package main; use Foo; Foo->class_method or die Foo->errstr; my $foo = Foo->new; $foo-