The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MojoliciousTest::Command::test_command;
use Mojo::Base 'Mojolicious::Command';

use Getopt::Long 'GetOptionsFromArray';

sub run {
  my ($self, @args) = @_;
  GetOptionsFromArray \@args, 'too' => \my $too;
  return $too ? 'works too!' : 'works!';
}

1;