X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FRequest%2FUpload.pm;h=b1bd4e6803f1216f5fdb66bb07972062a0d459b4;hp=d496aa1f25f84f5ae40bcfbf6cb3449438596d5d;hb=5fb12dbb7e69039e0ea22ec4d7cb627206b4508b;hpb=059c085bfcead450e70ace9ef193aa99ac2ab37d diff --git a/lib/Catalyst/Request/Upload.pm b/lib/Catalyst/Request/Upload.pm index d496aa1..b1bd4e6 100644 --- a/lib/Catalyst/Request/Upload.pm +++ b/lib/Catalyst/Request/Upload.pm @@ -1,20 +1,18 @@ package Catalyst::Request::Upload; -use strict; +use Moose; use Catalyst::Exception; use File::Copy (); use IO::File (); use File::Spec::Unix; -use Moose; - -has filename => (is => 'rw'); -has headers => (is => 'rw'); -has size => (is => 'rw'); -has tempname => (is => 'rw'); -has type => (is => 'rw'); -has basename => (is => 'rw'); +has filename => (is => 'rw'); +has headers => (is => 'rw'); +has size => (is => 'rw'); +has tempname => (is => 'rw'); +has type => (is => 'rw'); +has basename => (is => 'rw'); has fh => ( is => 'rw', @@ -186,4 +184,6 @@ it under the same terms as Perl itself. =cut +__PACKAGE__->meta->make_immutable; + 1;