[Catalyst-commits] r6464 - in trunk/Catalyst-Plugin-UploadProgress:
. lib/Catalyst/Plugin t
andyg at dev.catalyst.perl.org
andyg at dev.catalyst.perl.org
Wed Jun 13 04:21:48 GMT 2007
Author: andyg
Date: 2007-06-13 04:21:46 +0100 (Wed, 13 Jun 2007)
New Revision: 6464
Modified:
trunk/Catalyst-Plugin-UploadProgress/Changes
trunk/Catalyst-Plugin-UploadProgress/lib/Catalyst/Plugin/UploadProgress.pm
trunk/Catalyst-Plugin-UploadProgress/t/02pod.t
trunk/Catalyst-Plugin-UploadProgress/t/03podcoverage.t
Log:
UploadProgress: fix pod coverage
Modified: trunk/Catalyst-Plugin-UploadProgress/Changes
===================================================================
--- trunk/Catalyst-Plugin-UploadProgress/Changes 2007-06-12 18:22:12 UTC (rev 6463)
+++ trunk/Catalyst-Plugin-UploadProgress/Changes 2007-06-13 03:21:46 UTC (rev 6464)
@@ -1,5 +1,8 @@
Revision history for Perl extension Catalyst::Plugin::UploadProgress
+0.05
+ - Fixed POD coverage.
+
0.04 2007-06-12 14:00:00
- Fixed issue where you could only run UploadProgress in apps at
the webserver root.
Modified: trunk/Catalyst-Plugin-UploadProgress/lib/Catalyst/Plugin/UploadProgress.pm
===================================================================
--- trunk/Catalyst-Plugin-UploadProgress/lib/Catalyst/Plugin/UploadProgress.pm 2007-06-12 18:22:12 UTC (rev 6463)
+++ trunk/Catalyst-Plugin-UploadProgress/lib/Catalyst/Plugin/UploadProgress.pm 2007-06-13 03:21:46 UTC (rev 6464)
@@ -4,7 +4,7 @@
use warnings;
use NEXT;
-our $VERSION = '0.04';
+our $VERSION = '0.05';
sub prepare_body_chunk {
my ( $c, $chunk ) = @_;
@@ -231,7 +231,7 @@
the following setups with Catalyst 5.7003:
C::E::HTTP (server.pl) with -f flag (OSX)
-C::E::HTTP::POE 0.03 (OSX)
+C::E::HTTP::POE 0.06 (OSX)
C::E::Apache2::MP20 1.07 with Apache 2.0.58, mod_perl 2.0.2 (OSX)
C::E::FastCGI with Apache 2.0.55, mod_fastcgi 2.4.2 (Ubuntu)
@@ -263,6 +263,10 @@
=head1 EXTENDED METHODS
+=head2 prepare_body ( $c )
+
+Detects if the user aborted the upload.
+
=head2 prepare_body_chunk ( $chunk )
Takes each chunk of incoming upload data and updates the upload progress
@@ -270,7 +274,7 @@
=head2 dispatch
-Watches for the special URI /progress?progress_id=<id> and returns the
+Watches for a URI ending with '?progress_id=<id>' and returns the
JSON output from C</upload_progress_output>.
=head2 setup
Modified: trunk/Catalyst-Plugin-UploadProgress/t/02pod.t
===================================================================
--- trunk/Catalyst-Plugin-UploadProgress/t/02pod.t 2007-06-12 18:22:12 UTC (rev 6463)
+++ trunk/Catalyst-Plugin-UploadProgress/t/02pod.t 2007-06-13 03:21:46 UTC (rev 6464)
@@ -2,6 +2,7 @@
eval "use Test::Pod 1.14";
plan skip_all => 'Test::Pod 1.14 required' if $@;
-plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+plan skip_all => 'set TEST_POD to enable this test'
+ unless $ENV{TEST_POD} || -f 'MANIFEST.SKIP';
all_pod_files_ok();
Modified: trunk/Catalyst-Plugin-UploadProgress/t/03podcoverage.t
===================================================================
--- trunk/Catalyst-Plugin-UploadProgress/t/03podcoverage.t 2007-06-12 18:22:12 UTC (rev 6463)
+++ trunk/Catalyst-Plugin-UploadProgress/t/03podcoverage.t 2007-06-13 03:21:46 UTC (rev 6464)
@@ -2,6 +2,7 @@
eval "use Test::Pod::Coverage 1.04";
plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
-plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+plan skip_all => 'set TEST_POD to enable this test'
+ unless $ENV{TEST_POD} || -f 'MANIFEST.SKIP';
all_pod_coverage_ok();
More information about the Catalyst-commits
mailing list