Lines Matching full:base

9 use TAP::Base;
14     can_ok 'TAP::Base', 'new';
15     my $base = TAP::Base->new();
16     isa_ok $base, 'TAP::Base', 'object of correct type';
18         can_ok $base, $method;
22         $base->callback(
30     my $cb = $base->_callback_for('some_event');
38         my $base = TAP::Base->new(
56 use TAP::Base;
57 use base 'TAP::Base';
68     my $base = CallbackOK->new();
69     isa_ok $base, 'TAP::Base';
72         $base->callback(
84         $base->callback( other_event => sub { $other-- } );
85         $base->callback( nice_event => sub { $nice++; return shift() . 'OK' }
91     my $nice_cbs = $base->_callback_for('nice_event');
100     my $other_cbs = $base->_callback_for('other_event');
108     my @got = $base->_make_callback( 'nice_event', 'I am ' );
116     my $base = CallbackOK->new(
123     isa_ok $base, 'TAP::Base', 'object creation with callback succeeds';
126         $base->callback(
136         $base->callback( other_event => sub { $other-- } );
141     my $nice_cbs = $base->_callback_for('nice_event');
149     my $other_cbs = $base->_callback_for('other_event');
157     # my @got = $base->_make_callback( 'nice_event', 'I am ' );
164     $base->callback( other_event => sub { $status = 'OK'; return 'Aye' } );
166     my $new_cbs = $base->_callback_for('other_event');