package Egg::Util::BlankPage; # # Masatoshi Mizuno ElusheE<64>cpan.orgE # # $Id: BlankPage.pm 226 2008-01-27 10:23:16Z lushe $ # use strict; use warnings; use Egg::Release; our $VERSION= '3.00'; sub out { my($dispatch, $e)= @_; my $version; eval{ $version= $e->VERSION }; $version ||= '*.**'; my $d_class= ref($e->dispatch); $d_class=~s{\:+handler$} []; < @{[ $e->namespace ]}-${version}

  BLANK PAGE  

Project name and version - @{[ $e->namespace ]}-${version}

Example of dispatch code.   for ${d_class}.

@{[ $e->dispatch->_example_code ]}
Powerd by Egg.
END_OF_HTML } sub _style { <response->body( Egg::Helper::BlankPage->out($e) ); =head1 DESCRIPTION The screen display of the default immediately after generation of the project is supported. =head1 METHODS =head2 out ( [PROJECT_OBJ] ) The default screen is returned. The sample code of dispatch is acquired from '_example_code' method of the Dispatch module. my $body= Egg::Helper::BlankPage->out($e); =head1 SEE ALSO L L L L, =head1 AUTHOR Masatoshi Mizuno ElusheE<64>cpan.orgE =head1 COPYRIGHT Copyright (C) 2007 by Bee Flag, Corp. ELE, All Rights Reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available. =cut