[ create a new paste ] login | about

Link: http://codepad.org/RSpQulpA    [ raw code | fork ]

Perl, pasted on Dec 17:
#!/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;


Create a new paste based on this one


Comments: