Changeset 24221 for lang/perl/Moxy

Timestamp:

11/19/08 11:55:30 (7 weeks ago)

Author:

tokuhirom

Message:

HTTP::Session 0.20 対応

Files:

• lang/perl/Moxy/trunk/lib/Moxy/Session/State/BasicAuth.pm (modified) (2 diffs)

lang/perl/Moxy/trunk/lib/Moxy/Session/State/BasicAuth.pm

@@ -1 +1 @@
 package Moxy::Session::State::BasicAuth;
-use Moose;
-with 'HTTP::Session::Role::State';
+use HTTP::Session::State::Base;
 
-has realm => (
-    is  => 'rw',
-    isa => 'Str',
-    default => 'Moxy needs basic auth.Only for identification.Password is dummy.',
-);
+sub realm { 'Moxy needs basic auth.Only for identification.Password is dummy.' }
 
-has '+permissive' => ( 'default' => 1 );
+sub new {
+    bless {permissive => 1}, shift;
+}
 
 sub get_session_id {
@@ -18 +15 @@
 sub response_filter { }
 
-no Moose;
-__PACKAGE__->meta->make_immutable;
 1;