Skip to content

Commit

Permalink
Import of AVAR/Catalyst-Plugin-Upload-Digest-0.01 from CPAN.
Browse files Browse the repository at this point in the history
gitpan-cpan-distribution: Catalyst-Plugin-Upload-Digest
gitpan-cpan-version:      0.01
gitpan-cpan-path:         AVAR/Catalyst-Plugin-Upload-Digest-0.01.tar.gz
gitpan-cpan-author:       AVAR
gitpan-cpan-maturity:     released
  • Loading branch information
Ævar Arnfjörð Bjarmason authored and Gitpan committed Oct 26, 2014
0 parents commit aa6f6d7
Show file tree
Hide file tree
Showing 44 changed files with 4,904 additions and 0 deletions.
44 changes: 44 additions & 0 deletions MANIFEST
@@ -0,0 +1,44 @@
example/Upload-Digest/inc/Module/AutoInstall.pm
example/Upload-Digest/inc/Module/Install.pm
example/Upload-Digest/inc/Module/Install/AutoInstall.pm
example/Upload-Digest/inc/Module/Install/Base.pm
example/Upload-Digest/inc/Module/Install/Can.pm
example/Upload-Digest/inc/Module/Install/Fetch.pm
example/Upload-Digest/inc/Module/Install/Include.pm
example/Upload-Digest/inc/Module/Install/Makefile.pm
example/Upload-Digest/inc/Module/Install/Metadata.pm
example/Upload-Digest/inc/Module/Install/Scripts.pm
example/Upload-Digest/inc/Module/Install/Win32.pm
example/Upload-Digest/inc/Module/Install/WriteAll.pm
example/Upload-Digest/lib/Upload/Digest.pm
example/Upload-Digest/lib/Upload/Digest/C/Upload.pm
example/Upload-Digest/lib/Upload/Digest/V/TT.pm
example/Upload-Digest/Makefile.PL
example/Upload-Digest/MANIFEST
example/Upload-Digest/META.yml
example/Upload-Digest/README
example/Upload-Digest/root/upload.tt
example/Upload-Digest/script/upload_digest_cgi.pl
example/Upload-Digest/script/upload_digest_create.pl
example/Upload-Digest/script/upload_digest_fastcgi.pl
example/Upload-Digest/script/upload_digest_server.pl
example/Upload-Digest/script/upload_digest_test.pl
inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
lib/Catalyst/Plugin/Upload/Digest.pm
Makefile.PL
MANIFEST This list of files
META.yml
README
t/01use.t
t/02pod.t
t/03podcoverage.t
16 changes: 16 additions & 0 deletions META.yml
@@ -0,0 +1,16 @@
abstract: Compute digest of uploads with L<Digest>
author: "\xC3\x86var Arnfj\xC3\xB6r\xC3\xB0 Bjarmason <avar@cpan.org>"
build_requires:
Test::More: 0
distribution_type: module
generated_by: Module::Install version 0.64
license: perl
name: Catalyst-Plugin-Upload-Digest
no_index:
directory:
- inc
- t
requires:
Catalyst: 5.2
Digest: 0
version: 0.01
22 changes: 22 additions & 0 deletions Makefile.PL
@@ -0,0 +1,22 @@
use strict;
use inc::Module::Install;

name 'Catalyst-Plugin-Upload-Digest';

author 'Ævar Arnfjörð Bjarmason <avar@cpan.org>';

abstract_from 'lib/Catalyst/Plugin/Upload/Digest.pm';
version_from 'lib/Catalyst/Plugin/Upload/Digest.pm';
license_from 'lib/Catalyst/Plugin/Upload/Digest.pm';

# lib/
requires Catalyst => '5.2';
requires 'Digest' => 0;

# t/
build_requires 'Test::More' => 0;

auto_install;
WriteAll;


47 changes: 47 additions & 0 deletions README
@@ -0,0 +1,47 @@
NAME
Catalyst::Plugin::Upload::Digest - Compute digest of uploads with Digest

SYNOPSIS
use Catalyst qw< Upload::Digest >;

if ( my $upload = $c->request->upload( 'field' ) ) {
# Get Digest::Whirlpool object
my $whirlpool = $upload->digest( 'Whirlpool' );

# Get the digest of the uploaded file, addfile() has already
# been called on its filehandle.
my $hexdigest = $whirlpool->hexdigest;

# I want a SHA-512 digest too!
my $sha512digest = $upload->digest( 'SHA-512' )->digest;
}

DESCRIPTION
Extends "Catalyst::Request::Upload" with a "digest" method that wraps
Digest's construction method. Any arguments to it will be passed
directly to Digest's constructor. The return value is the relevant
digest object that has already been populated with the file handle of
the uploaded file, so retriving its digest will work as expected.

EXAMPLE
This module is distributed with a Catalyst example application called
Upload::Digest, see the example/Upload-Digest directory in this
distribution for how to run it.

BUGS
Please report any bugs that aren't already listed at
<http://rt.cpan.org/Dist/Display.html?Queue=Catalyst-Plugin-Upload-Diges
t> to
<http://rt.cpan.org/Public/Bug/Report.html?Queue=Catalyst-Plugin-Upload-
Digest>

SEE ALSO
Digest, Catalyst::Request::Upload

AUTHOR
Ævar Arnfjörð Bjarmason <avar@cpan.org>

LICENSE
This library is free software . You can redistribute it and/or modify it
under the same terms as perl itself.

25 changes: 25 additions & 0 deletions example/Upload-Digest/MANIFEST
@@ -0,0 +1,25 @@
inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/AutoInstall.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Scripts.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
lib/Upload/Digest.pm
lib/Upload/Digest/C/Upload.pm
lib/Upload/Digest/V/TT.pm
Makefile.PL
MANIFEST This list of files
META.yml
README
root/upload.tt
script/upload_digest_cgi.pl
script/upload_digest_create.pl
script/upload_digest_fastcgi.pl
script/upload_digest_server.pl
script/upload_digest_test.pl
17 changes: 17 additions & 0 deletions example/Upload-Digest/META.yml
@@ -0,0 +1,17 @@
abstract: L<Catalyst::Plugin::Upload::Digest> example application
author: E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@cpan.org>
build_requires:
Test::More: 0
distribution_type: module
generated_by: Module::Install version 0.64
license: perl
name: Upload-Digest
no_index:
directory:
- inc
- t
requires:
Catalyst: 5.7006
Catalyst::Plugin::Upload::Digest: 0.01
Catalyst::View::TT: 0.24
version: 0.01
21 changes: 21 additions & 0 deletions example/Upload-Digest/Makefile.PL
@@ -0,0 +1,21 @@
use strict;
use inc::Module::Install;

name 'Upload-Digest';

all_from 'lib/Upload/Digest.pm';

# lib/
requires Catalyst => '5.7006';
requires 'Catalyst::View::TT' => '0.24';
requires 'Catalyst::Plugin::Upload::Digest' => '0.01';

# t/
build_requires 'Test::More' => 0;

install_script $_ for glob 'script/*.pl';

auto_install;
WriteAll;


13 changes: 13 additions & 0 deletions example/Upload-Digest/README
@@ -0,0 +1,13 @@
NAME
Upload::Digest - Catalyst::Plugin::Upload::Digest example application

DESCRIPTION
This Catalyst application demonstrates how to use the digest plugin.

AUTHOR
Ævar Arnfjörð Bjarmason <avar@cpan.org>

LICENSE
This library is free software. You can redistribute it and/or modify it
under the same terms as Perl itself.

0 comments on commit aa6f6d7

Please sign in to comment.