Lines Matching +full:x +full:- +full:whatever

8 TAP::Object - Base class that provides common functionality to all C<TAP::*> modules
20     package TAP::Whatever;
34     my $obj = TAP::Whatever->new(@args);
55     return $self->_initialize(@_);
78     $self->_croak( 'why me?', 'aaarrgh!' );
82     $class->_croak( 'this works too' );
97     $self->_confess( 'why me?', 'aaarrgh!' );
101     $class->_confess( 'this works too' );
121     $self->_croak("Bad module name $class")
122       unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;
124     unless ( $class->can('new') ) {
127         $self->_croak("Can't load $class: $@") if $@;
130     return $class->new(@args);
137  __PACKAGE__->mk_methods(@method_names);
148             $self->{$method_name} = shift if @_;
149             return $self->{$method_name};