#!/usr/bin/env perl
package Local::Command::dudewheresmyhelper;
use Mojo::Base qw(Mojolicious::Command);
has description => 'Red pill or blue pill';
sub run {
my $c = shift;
eval { $c->mycar }; # Not found
eval {
# Also not found, but I would expect so from
# http://mojolicio.us/perldoc/Mojolicious/Controller#helpers
$c->helpers->mycar;
};
$c->app->mycar; # Works okay
}
package main;
use Mojolicious::Lite;
helper mycar => sub {
say 'Dude!';
};
my $namespaces = app->commands->namespaces;
push @{$namespaces}, 'Local::Command';
app->start;