Parent Directory | Revision Log | Patch
revision 275 by dpavlin, Wed Nov 5 08:20:49 2008 UTC | revision 276 by dpavlin, Wed Nov 5 08:20:50 2008 UTC | |
---|---|---|
# | Line 63 sub markup { | Line 63 sub markup { |
63 | warn "SKIP: $class can't markup"; | warn "SKIP: $class can't markup"; |
64 | } | } |
65 | ||
eval { | ||
# FIXME am I paranoid? | ||
package Mock::Web; | ||
use Moose; | ||
extends 'Frey'; | ||
with 'Frey::Web'; | ||
$html = Mock::Web->new->page( | ||
title => $class, | ||
body => $html, | ||
); | ||
}; | ||
66 | } | } |
67 | ||
68 | eval { | |
69 | # FIXME am I paranoid? | |
70 | package Mock::Web; | |
71 | use Moose; | |
72 | extends 'Frey'; | |
73 | with 'Frey::Web'; | |
74 | ||
75 | $html = Mock::Web->new->page( | |
76 | title => $class, | |
77 | body => $html, | |
78 | ); | |
79 | }; | |
80 | ||
81 | # Response objec | # Response objec |
82 | my $res = $c->res; | my $res = $c->res; |
83 | $res->code(200); | $res->code(200); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |