DOKK / manpages / debian 12 / libtest-harness-perl / TAP::Object.3pm.en
TAP::Object(3pm) User Contributed Perl Documentation TAP::Object(3pm)

TAP::Object - Base class that provides common functionality to all "TAP::*" modules

Version 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" provides a default constructor and exception model for all "TAP::*" classes. Exceptions are raised using Carp.

"new"

Create a new object. Any arguments passed to "new" will be passed on to the "_initialize" method. Returns a new object.

"_initialize"

Initializes a new object. This method is a stub by default, you should override it as appropriate.

Note: "new" expects you to return $self or raise an exception. See "_croak", and Carp.

"_croak"

Raise an exception using "croak" from Carp, eg:

    $self->_croak( 'why me?', 'aaarrgh!' );

May also be called as a class method.

    $class->_croak( 'this works too' );

"_confess"

Raise an exception using "confess" from Carp, eg:

    $self->_confess( 'why me?', 'aaarrgh!' );

May also be called as a class method.

    $class->_confess( 'this works too' );

"_construct"

Create a new instance of the specified class.

"mk_methods"

Create simple getter/setters.

 __PACKAGE__->mk_methods(@method_names);
2022-04-21 perl v5.34.0