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 - $_";
    } @_;
}