Skip to content

Instantly share code, notes, and snippets.

@gslin
Created December 11, 2010 01:13
Show Gist options
  • Save gslin/737057 to your computer and use it in GitHub Desktop.
Save gslin/737057 to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
use Tatsumaki::Application;
use strict;
use warnings;
Tatsumaki::Application->new([
'/' => 'Controller::Main',
]);
__END__
#!/usr/bin/perl
use parent qw/Tatsumaki::Handler/;
use strict;
use warnings;
sub get {
my $self = shift;
$self->write('It is Main Controller.');
}
1;
@gslin
Copy link
Author

gslin commented Dec 11, 2010

root@pr1 [~/testproject] [01:13] perl -M5.010 -e 'say join "\n", @INC'
/etc/perl
/usr/local/lib/perl/5.10.1
/usr/local/share/perl/5.10.1
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.10
/usr/share/perl/5.10
/usr/local/lib/site_perl
.

@gslin
Copy link
Author

gslin commented Dec 11, 2010

Error msg:

Can't locate object method "new" via package "Controller::Main" (perhaps you forgot to load "Controller::Main"?) at /usr/local/share/perl/5.10.1/Tatsumaki/Application.pm line 55, <> line 11.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment