$body->add($buffer);
}
- my $uploads = $body->upload; # hashref
- my $params = $body->param; # hashref
- my $body = $body->body; # IO::Handle
+ my $uploads = $body->upload; # hashref
+ my $params = $body->param; # hashref
+ my $param_order = $body->param_order # arrayref
+ my $body = $body->body; # IO::Handle
}
=head1 DESCRIPTION
content_type => $content_type,
length => 0,
param => {},
+ param_order => [],
state => 'buffering',
upload => {},
tmpdir => File::Spec->tmpdir(),
else {
$self->{param}->{$name} = $value;
}
+
+ push @{$self->{param_order}}, $name;
}
return $self->{param};
return $self->{tmpdir};
}
+=item param_order
+
+Returns the array ref of the param keys in the order how they appeared on the body
+
+=cut
+
+sub param_order {
+ return shift->{param_order};
+}
+
=back
=head1 SUPPORT
Christian Walde
+Torsten Raudssus <torsten@raudssus.de>
+
=head1 LICENSE
This library is free software. You can redistribute it and/or modify