Help for this page

Select Code to Download


  1. or download this
    sub ACTION_test
    {
        my $self = shift;
    ...
        find( sub { /\.t\z/ and push @files, $File::Find::name }, 't' );
        $self->SUPER::ACTION_test( 'test_files=' . join(' ', @files ) );
    }