File Coverage

lib/Egg/Util/BlankPage.pm
Criterion Covered Total %
statement 9 25 36.0
branch n/a
condition 0 2 0.0
subroutine 3 5 60.0
pod 1 1 100.0
total 13 33 39.3


line stmt bran cond sub pod time code
1             package Egg::Util::BlankPage;
2             #
3             # Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
4             #
5             # $Id: BlankPage.pm 337 2008-05-14 12:30:09Z lushe $
6             #
7 1     1   420 use strict;
  1         2  
  1         38  
8 1     1   5 use warnings;
  1         2  
  1         30  
9 1     1   5 use Egg::Release;
  1         2  
  1         8  
10              
11             our $VERSION= '3.00';
12              
13             sub out {
14 0     0 1   my($dispatch, $e)= @_;
15 0           my $version; eval{ $version= $e->VERSION };
  0            
  0            
16 0   0       $version ||= '*.**';
17 0           my $d_class= ref($e->dispatch);
18 0           $d_class=~s{\:+handler$} [];
19 0           <<END_OF_HTML;
20             <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
21             "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
22             <html xmlns="http://www.w3.org/1999/xhtml">
23 0           <title>@{[ $e->namespace ]}-${version}</title>
  0            
24             <head>
25 0           <style type="text/css">@{[ _style() ]}</style>
26             </head>
27             <body>
28             <div id="shadow"><div id="container">
29             <div id="banner">
30             <img alt="Egg - WEB application framework."
31 0           src="@{[ $e->config->{static_uri} ]}images/egg224x33.gif" width="224" height="33" />
32             Request PATH:
33 0           <div class="pathinfo">@{[ $e->request->path ]}</div>
34             </div>
35             <div id="content">
36             <h1>&nbsp; BLANK PAGE &nbsp;</h1>
37             <ul>
38             <li><a target="_blank" href="http://search.cpan.org/dist/Egg-Release/">Refer to CPAN.</a></li>
39             <li><a target="_blank" href="$Egg::Release::DISTURL">Original distribution site.</a></li>
40             </ul>
41 0           <h2>Project name and version - @{[ $e->namespace ]}-${version}</h2>
42             <div class="box">
43             <h3>Example of dispatch code. &nbsp; for ${d_class}.</h3>
44 0           <pre><tt>@{[ $e->dispatch->_example_code ]}</tt></pre>
45             </div>
46             <a target="_blank" href="$Egg::Release::DISTURL">
47             <img alt="Powerd by Egg."
48             src="@{[ $e->config->{static_uri} ]}images/egg468x60.gif" width="468" height="60" /></a>
49             </div>
50             </div></div>
51             </body>
52             </html>
53             END_OF_HTML
54             }
55             sub _style {
56 0     0     <<END_STYLE;
57             body {
58             background : #817264;
59             text-align : center;
60             }
61             a {
62             color : #07F;
63             }
64             img {
65             border : 0px;
66             }
67             h1, h2, h3 {
68             margin : 5px;
69             font : bold 25px Times,sans-serif;
70             text-decoration: underline;
71             }
72             h1 {
73             float : left;
74             }
75             h2, h3 {
76             font-size : 14px;
77             }
78             h2 {
79             margin : 30px 5px 0px 10px;
80             clear : both;
81             color : #777;
82             text-align : left;
83             }
84             h3 {
85             margin-top : 0px;
86             color : #C99158;
87             }
88             ul {
89             margin : 2px 2px 2px 350px;
90             text-align : left;
91             font-size : 14px;
92             }
93             pre {
94             margin : 2px 10px 5px 10px;
95             padding : 10px;
96             background : #FFF7E5;
97             font : normal 14px sans-serif;
98             border : #C99158 solid 1px;
99             }
100             #shadow {
101             width : 640px;
102             padding:0px : 0px;
103             margin : 0px auto 0px auto;
104             border : 0px;
105             border-right : #000000 solid 2px;
106             border-bottom : #000000 solid 2px;
107             }
108             #container {
109             background : #FFFFFF;
110             border : #FFEB00 solid 5px;
111             }
112             #container {
113             text-align : center;
114             }
115             #banner {
116             height : 40px;
117             text-align : left;
118             font : bold 10px Times,sans-serif;
119             }
120             #banner img {
121             margin : 7px;
122             float : left;
123             }
124             #banner .pathinfo {
125             background : #FFF7E9;
126             margin : 2px 5px 2px 240px;
127             padding : 2px 2px 2px 7px;
128             font-size : 14px;
129             border : #FF8F00 solid 2px;
130             }
131             #content {
132             margin : 10px;
133             padding : 10px;
134             border : #DDDDDD solid 1px;
135             }
136             #content .box {
137             margin-top : 10px;
138             padding : 7px;
139             text-align : left;
140             }
141             END_STYLE
142             }
143              
144             1;
145              
146             __END__
147              
148             =head1 NAME
149              
150             Egg::Helper::BlankPage - Default page for project.
151              
152             =head1 SYNOPSIS
153              
154             require Egg::Helper::BlankPage;
155            
156             $e->response->body( Egg::Helper::BlankPage->out($e) );
157              
158             =head1 DESCRIPTION
159              
160             The screen display of the default immediately after generation of the project
161             is supported.
162              
163             =head1 METHODS
164              
165             =head2 out ( [PROJECT_OBJ] )
166              
167             The default screen is returned.
168              
169             The sample code of dispatch is acquired from '_example_code' method
170             of the Dispatch module.
171              
172             my $body= Egg::Helper::BlankPage->out($e);
173              
174             =head1 SEE ALSO
175              
176             L<Egg::Dispatch>
177             L<Egg::Dispatch::Fast>
178             L<Egg::Dispatch::Standard>
179             L<Egg::Release>,
180              
181             =head1 AUTHOR
182              
183             Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
184              
185             =head1 COPYRIGHT
186              
187             Copyright (C) 2007 by Bee Flag, Corp. E<lt>L<http://egg.bomcity.com/>E<gt>.
188              
189             This library is free software; you can redistribute it and/or modify
190             it under the same terms as Perl itself, either Perl version 5.8.6 or,
191             at your option, any later version of Perl 5 you may have available.
192              
193             =cut