use strict;
use warnings;
package Test::WithSetup::Command::bertie;
use Test::WithSetup -command;
sub execute {
my ($self, $opt, $args) = @_;
return xyzzy foo => 'bar';
}
1;
use strict;
use warnings;
package Test::WithSetup::Command::bertie;
use Test::WithSetup -command;
sub execute {
my ($self, $opt, $args) = @_;
return xyzzy foo => 'bar';
}
1;