The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TM::Workbench::Plugin::Test;

use base 'TM::Workbench::Plugin';

sub precedence { return 'p2'; }

sub matches {
    my $self = shift;
    my $cmd  = shift;
    return $cmd =~ /^test$/
}

sub execute {
    my $self = shift;
    return "TEST\n";
}

1;