Select Code to Download

Select or download this

            my $headers = HTTP::Headers->new( %{ $upload->{headers} } 
+);
            my $u = Catalyst::Request::Upload->new
...
               tempname => $upload->{tempname},
               filename => $upload->{filename},
              );

Select or download this

  uploads          => {
                        SourceFile_1 => bless({
...
                              type => "image/jpeg",
                            }, "Catalyst::Request::Upload"),
                      },