__PACKAGE__->mk_accessors(qw/filename size tempname type/);
-sub new { shift->SUPER::new( ref( $_[0] ) ? $_[0] : {@_} ) }
=head1 NAME
=over 4
+=item $upload->new
+
+Constructor. Normally only for engine use.
+
+=cut
+
+sub new { shift->SUPER::new( ref( $_[0] ) ? $_[0] : {@_} ) }
+
=item $upload->copy_to
Copies tempname using C<File::Copy>. Returns true for success, false otherwise.