Changeset 11069 for lang/perl/HTTP-Engine/branches/moose/examples/moose-dumper.pl

Timestamp:

05/04/08 13:46:12 (5 years ago)

Author:

tokuhirom

Message:

added HTTP::Engine::Plugin::MobileAttribute?.

Files:

• lang/perl/HTTP-Engine/branches/moose/examples/moose-dumper.pl (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/moose/examples/moose-dumper.pl

@@ -8 +8 @@
 use HTTP::Engine::Request;
 use HTTP::MobileAttribute;
-
-HTTP::Engine::Request->meta->make_mutable;
-HTTP::Engine::Request->meta->add_method(
-    mobile_attribute => sub {
-        my $self = shift;
-        HTTP::MobileAttribute->new($self->headers);
-    },
-);
-HTTP::Engine::Request->meta->make_immutable;
 
 my $engine = HTTP::Engine->new(
@@ -42 +33 @@
     plugins => [qw/DebugScreen/],
 );
-$engine->load_plugins(qw/DebugScreen ModuleReload/);
+$engine->load_plugins(qw/DebugScreen ModuleReload MobileAttribute/);
 $engine->run;