1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
package TestBass;
use Test::Base -Base;
# const block_class => 'TestBass::Block';
# const filter_class => 'TestBass::Filter';
our @EXPORT = qw(run_like_hell);
sub run_like_hell() {
(my ($self), @_) = find_my_self(@_);
$self->run_like(@_);
}
package TestBass::Block;
use base 'Test::Base::Block';
sub el_nombre { $self->name(@_) }
block_accessor 'feedle';
package TestBass::Filter;
use base 'Test::Base::Filter';
sub foo_it {
map {
"foo - $_";
} @_;
}
|
