use Carp qw[ ];
-our $VERSION = '1.03';
+our $VERSION = '1.04';
our $TYPES = {
'application/octet-stream' => 'HTTP::Body::OctetStream',
length => 0,
param => {},
state => 'buffering',
- upload => {}
+ upload => {},
+ tmpdir => File::Spec->tmpdir(),
};
bless( $self, $body );
return $self->{upload};
}
+=item tmpdir
+
+Specify a different path for temporary files. Defaults to the system temporary path.
+
+=cut
+
+sub tmpdir {
+ my $self = shift;
+ $self->{tmpdir} = shift if @_;
+ return $self->{tmpdir};
+}
+
=back
=head1 AUTHOR