use Carp qw[ ];
-our $VERSION = '1.02';
+our $VERSION = '1.05';
our $TYPES = {
'application/octet-stream' => 'HTTP::Body::OctetStream',
my $body = $TYPES->{ $type || 'application/octet-stream' };
- eval "require $body";
-
- if ($@) {
- die $@;
- }
-
my $self = {
buffer => '',
chunk_buffer => '',
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