git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/TestBass.pm

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