use strict;
use warnings;
package Test::WithSetup::Command::bertie;
use Test::WithSetup -command;

sub execute {
  my ($self, $opt, $args) = @_;
  return xyzzy foo => 'bar';
}

1;