$class->handler($lwp);
$connection->send_response( $lwp->response );
- if ( $class->debug ) {
- $class->log->info( sprintf( "Peer %s:%d",$connection->peerhost, $connection->peerport ) );
- }
-
}
$connection->close;
my ( \$self, \$c ) = \@_;
\$c->res->output('Congratulations, $class is on Catalyst!');
}
-
EOF
my $file = $self->{file};
return $self->mk_file( "$file", <<"EOF");