Changeset 25122

Timestamp:

11/27/08 17:18:34 (4 years ago)

Author:

tokuhirom

Message:

use Shika

Files:

• lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request/Upload.pm (modified) (4 diffs)

lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request/Upload.pm

@@ -1 +1 @@
 package HTTP::Engine::Request::Upload;
-
-use Moose;
-
+use Shika;
 use File::Copy ();
 use IO::File   ();
 use File::Spec::Unix;
 
-has filename => ( is => 'rw' );
-has headers  => ( is => 'rw' );
-has size     => ( is => 'rw' );
-has tempname => ( is => 'rw' );
-has type     => ( is => 'rw' );
+has filename => ();
+has headers  => ();
+has size     => ();
+has tempname => ();
+has type     => ();
 has basename => (
-    is      => 'rw',
     lazy    => 1,
     default => sub {
@@ -26 +23 @@
 
 has fh => (
-    is       => 'rw',
-    required => 1,
     lazy     => 1,
     default  => sub {
@@ -40 +35 @@
     },
 );
-
-no Moose;
 
 sub copy_to {
@@ -69 +62 @@
     $content;
 }
-
-__PACKAGE__->meta->make_immutable;
 
 1;