--- trunk/lib/SourceSnoop.pm 2008/09/14 00:45:11 189
+++ trunk/lib/SourceSnoop.pm 2008/10/28 17:05:11 192
@@ -27,7 +27,12 @@
return '
' . encode_entities($t) . '
';
}
-sub html {
+use MooseX::Method;
+
+method html => positional(
+ { isa => 'Continuity::RequestHolder', required => 1 },
+) => sub {
+#sub html {
my ( $self, $request ) = @_;
my %param = $request->params;
@@ -78,7 +83,7 @@
body => $body,
) );
$request->next;
-}
+};
warn "## VCI loaded";