move slurp() from QueryType::CGI to Upload, so all QueryType classes inherit it.

fixes it googlecode issue FormFu#64

Author: fireartist

lib/HTML/FormFu/QueryType/CGI.pm

@@ -1,6 +1,6 @@
 package HTML::FormFu::QueryType::CGI;
-
 use Moose;
+
 extends 'HTML::FormFu::Upload';
 
 use HTTP::Headers;
@@ -50,20 +50,6 @@ sub fh {
     return $self->_param;
 }
 
-sub slurp {
-    my ($self) = @_;
-
-    my $fh = $self->fh;
-
-    return if !defined $fh;
-
-    binmode $fh;
-
-    local $/;
-
-    return <$fh>;
-}
-
 __PACKAGE__->meta->make_immutable;
 
 1;

lib/HTML/FormFu/QueryType/CGI/Simple.pm

@@ -1,6 +1,6 @@
 package HTML::FormFu::QueryType::CGI::Simple;
-
 use Moose;
+
 extends 'HTML::FormFu::QueryType::CGI';
 
 sub parse_uploads {

lib/HTML/FormFu/QueryType/Catalyst.pm

@@ -1,11 +1,13 @@
 package HTML::FormFu::QueryType::Catalyst;
-
 use Moose;
+
 extends 'HTML::FormFu::Upload';
 
+use IO::File ();
 use Scalar::Util qw( weaken );
 
-__PACKAGE__->mk_item_accessors(qw( basename tempname ));
+has basename => ( is => 'rw', traits  => ['Chained'] );
+has tempname => ( is => 'rw', traits  => ['Chained'] );
 
 sub parse_uploads {
     my ( $class, $form, $name ) = @_;

lib/HTML/FormFu/Upload.pm

@@ -15,6 +15,7 @@ has size     => ( is => 'rw', traits  => ['Chained'] );
 has type     => ( is => 'rw', traits  => ['Chained'] );
 
 sub BUILD {}
+
 sub _param {
     my ( $self, $param ) = @_;
 
@@ -29,6 +30,20 @@ sub _param {
     return defined $self->{_param} ? $self->{_param}->param : ();
 }
 
+sub slurp {
+    my ($self) = @_;
+
+    my $fh = $self->fh;
+
+    return if !defined $fh;
+
+    binmode $fh;
+
+    local $/;
+
+    return <$fh>;
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;