Yet Another CPAN Grep

Apache2-UploadProgress ( C/CE/CEESHEK/Apache2-UploadProgress-0.2.tar.gz, CEESHEK, 2006; MetaCPAN )

Apache2-UploadProgress/lib/Apache2/UploadProgress.pm ( view source; MetaCPAN )

%d' })">
  <h3>Upload Progress</h3>
  <div id="progress"></div>
</body>
</html>
EOF

$TEMPLATES->{json} = <<'EOF';
{"size":%d,"received":%d}
EOF

$TEMPLATES->{text} = <<'EOF';
size: %d
received: %d
EO

ize>
    <received>%d</received>
</upload>
EOF

$MIMES = {
    'application/x-json'    => sub { sprintf( $TEMPLATES->{json}, @_ ) },
    'application/x-yaml'    => sub { sprintf( $TEMPLATES->{yaml}, @

lain'            => sub { sprintf( $TEMPLATES->{text}, @_ ) },
    'text/x-json'           => sub { sprintf( $TEMPLATES->{json}, @_ ) },
    'text/x-yaml'           => sub { sprintf( $TEMPLATES->{yaml