Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / HTTP / Body / XForms.pm

diff --git a/local-lib5/lib/perl5/HTTP/Body/XForms.pm b/local-lib5/lib/perl5/HTTP/Body/XForms.pm
new file mode 100644 (file)
index 0000000..bdbd4a6
--- /dev/null
+++ b/local-lib5/lib/perl5/HTTP/Body/XForms.pm
@@ -0,0 +1,59 @@
+package HTTP::Body::XForms;
+
+use strict;
+use base 'HTTP::Body';
+use bytes;
+
+use File::Temp 0.14;
+
+=head1 NAME
+
+HTTP::Body::XForms - HTTP Body XForms Parser
+
+=head1 SYNOPSIS
+
+    use HTTP::Body::XForms;
+
+=head1 DESCRIPTION
+
+HTTP Body XForms Parser. This module parses single part XForms
+submissions, which are identifiable by the content-type
+application/xml. The XML is stored unparsed on the parameter
+XForms:Model.
+
+=head1 METHODS
+
+=over 4
+
+=item spin
+
+This method is overwrited to set the param XForms:Model with
+the buffer content.
+
+=cut
+
+sub spin {
+    my $self = shift;
+
+    $self->body($self->{buffer});
+    $self->param( 'XForms:Model', $self->{buffer} );
+    $self->{buffer} = '';
+    $self->{state}  = 'done';
+
+    return $self->SUPER::init();
+}
+
+=back
+
+=head1 AUTHOR
+
+Daniel Ruoso, C<daniel@ruoso.com>
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
+1;