TAP::Object - 为所有 TAP::*
模块提供通用功能的基础类
版本 3.44
package TAP::Whatever;
use strict;
use base 'TAP::Object';
# new() implementation by TAP::Object
sub _initialize {
my ( $self, @args) = @_;
# initialize your object
return $self;
}
# ... later ...
my $obj = TAP::Whatever->new(@args);
TAP::Object
为所有 TAP::*
类提供默认构造函数和异常模型。异常使用 Carp 触发。
new
创建一个新对象。传递给 new
的任何参数都将传递给 "_initialize" 方法。返回一个新对象。
_initialize
初始化一个新对象。此方法默认情况下是一个存根,你应该根据需要覆盖它。
注意: "new" 希望你返回 $self
或引发异常。请参阅 "_croak" 和 Carp。
_croak
使用 Carp 中的 croak
引发异常,例如
$self->_croak( 'why me?', 'aaarrgh!' );
也可以作为类方法调用。
$class->_croak( 'this works too' );
_confess
使用 Carp 中的 confess
引发异常,例如
$self->_confess( 'why me?', 'aaarrgh!' );
也可以作为类方法调用。
$class->_confess( 'this works too' );
_construct
创建指定类的实例。
mk_methods
创建简单的 getter/setter。
__PACKAGE__->mk_methods(@method_names);