root/lang/perl/Catalyst-Model-DynamicAdaptor/trunk/t/lib/TestApp/Controller/Root.pm @ 10543

package TestApp::Controller::Root;

use strict;
use warnings;
use base 'Catalyst::Controller';

__PACKAGE__->config->{namespace} = '';
sub default : Private {
    my ( $self, $c ) = @_;
    $c->response->body( $c->model('Logic::Oppai')->porn );
}

sub boin : Local {
    my ( $self, $c ) = @_;
    $c->response->body( $c->model('Logic::Boin')->boin );

}


1;