Changeset 10532

Timestamp:

04/27/08 14:06:44 (5 years ago)

Author:

tokuhirom

Message:

merge

Location:

lang/perl/Nanto/trunk

Files:

• lib/Nanto/Plugin/ConfigAccessor.pm (modified) (1 diff)
• lib/Nanto/Plugin/Factory.pm (modified) (1 diff)
• lib/Nanto/Role/Authorizer.pm (modified) (1 diff)
• lib/Nanto/Role/Config.pm (modified) (1 diff)
• lib/Nanto/Role/Context.pm (modified) (2 diffs)
• lib/Nanto/Role/Context/AutoResolveComponents.pm (modified) (1 diff)
• lib/Nanto/Role/Controller.pm (modified) (1 diff)
• lib/Nanto/Role/Factory.pm (modified) (1 diff)
• lib/Nanto/Role/Handler.pm (modified) (1 diff)
• lib/Nanto/Role/View.pm (modified) (1 diff)
• lib/Nanto/View/Plugin/StickyDoCoMoGUID.pm (modified) (1 diff)
• t/97_podspell.t (modified) (1 diff)

lang/perl/Nanto/trunk/lib/Nanto/Plugin/ConfigAccessor.pm

@@ -1 +1 @@
 package Nanto::Plugin::ConfigAccessor;
+use strict;
 use Moose::Role;
 use UNIVERSAL::require;

lang/perl/Nanto/trunk/lib/Nanto/Plugin/Factory.pm

@@ -1 +1 @@
 package Nanto::Plugin::Factory;
+use strict;
 use Moose::Role;
 use UNIVERSAL::require;

lang/perl/Nanto/trunk/lib/Nanto/Role/Authorizer.pm

@@ -1 +1 @@
 package Nanto::Role::Authorizer;
+use strict;
 use Moose::Role;
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Config.pm

@@ -1 +1 @@
 package Nanto::Role::Config;
+use strict;
 use Moose::Role;
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Context.pm

@@ -1 +1 @@
 package Nanto::Role::Context;
+use strict;
 use Moose::Role;
 use HTTP::MobileAttribute;
-use Scalar::Util qw/weaken/;
 
 has 'req' => (
@@ -16 +16 @@
     is  => 'rw',
     isa => 'HTTP::Engine::Response',
-    trigger => sub {
-        # XXX HTTP::Engine がなおるまでの応急処置
-        my $self = shift;
-        $self->res->{context} = $self;
-        weaken($self->res->{context});
-    },
 );
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Context/AutoResolveComponents.pm

@@ -1 +1 @@
 package Nanto::Role::Context::AutoResolveComponents;
+use strict;
 use Moose::Role;
 use UNIVERSAL::require;

lang/perl/Nanto/trunk/lib/Nanto/Role/Controller.pm

@@ -1 +1 @@
 package Nanto::Role::Controller;
+use strict;
 use Moose::Role;
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Factory.pm

@@ -1 +1 @@
 package Nanto::Role::Factory;
+use strict;
 use Moose::Role;
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Handler.pm

@@ -1 +1 @@
 package Nanto::Role::Handler;
+use strict;
 use Moose::Role;
 use UNIVERSAL::require;

lang/perl/Nanto/trunk/lib/Nanto/Role/View.pm

@@ -1 +1 @@
 package Nanto::Role::View;
+use strict;
 use Moose::Role;
 

lang/perl/Nanto/trunk/lib/Nanto/View/Plugin/StickyDoCoMoGUID.pm

@@ -1 +1 @@
 package Nanto::View::Plugin::StickyDoCoMoGUID;
+use strict;
 use Moose::Role;
 use HTML::StickyQuery::DoCoMoGUID;

lang/perl/Nanto/trunk/t/97_podspell.t

@@ -14 +14 @@
 Tatsuhiko
 Miyagawa
+TODO