[Catalyst-commits] r11932 - in trunk/Catalyst-Plugin-Compress-Zlib:
. lib/Catalyst/Plugin/Compress
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Fri Nov 20 01:20:26 GMT 2009
Author: t0m
Date: 2009-11-20 01:20:26 +0000 (Fri, 20 Nov 2009)
New Revision: 11932
Removed:
trunk/Catalyst-Plugin-Compress-Zlib/Build.PL
trunk/Catalyst-Plugin-Compress-Zlib/MANIFEST
Modified:
trunk/Catalyst-Plugin-Compress-Zlib/Changes
trunk/Catalyst-Plugin-Compress-Zlib/Makefile.PL
trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Deflate.pm
trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Gzip.pm
trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Zlib.pm
Log:
Update to MRO::Compat
Deleted: trunk/Catalyst-Plugin-Compress-Zlib/Build.PL
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/Build.PL 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/Build.PL 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,12 +0,0 @@
-use strict;
-use Module::Build;
-
-my $build = Module::Build->new(
- create_makefile_pl => 'passthrough',
- license => 'perl',
- module_name => 'Catalyst::Plugin::Compress::Zlib',
- requires => { 'Catalyst' => 5, 'Compress::Zlib' => 0 },
- create_makefile_pl => 'passthrough',
- test_files => [ glob('t/*.t') ]
-);
-$build->create_build_script;
Modified: trunk/Catalyst-Plugin-Compress-Zlib/Changes
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/Changes 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/Changes 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,5 +1,10 @@
Revision history for Perl extension Catalyst::Plugin::Compress::Zlib
+0.04 2009-11-20 01:20
+ - Update Module::Install version
+ - Remove Build.PL
+ - Switch from NEXT to MRO::Compat
+
0.03 2007-08-06 18:22
- Add support for FH body.
- Fix lack of inc/
Deleted: trunk/Catalyst-Plugin-Compress-Zlib/MANIFEST
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/MANIFEST 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/MANIFEST 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,24 +0,0 @@
-Build.PL
-Changes
-inc/Module/AutoInstall.pm
-inc/Module/Install.pm
-inc/Module/Install/AutoInstall.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Build.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/Compress/Deflate.pm
-lib/Catalyst/Plugin/Compress/Gzip.pm
-lib/Catalyst/Plugin/Compress/Zlib.pm
-Makefile.PL
-MANIFEST This list of files
-META.yml
-README
-t/01use.t
-t/02pod.t
-t/03podcoverage.t
Modified: trunk/Catalyst-Plugin-Compress-Zlib/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/Makefile.PL 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/Makefile.PL 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,12 +1,13 @@
use strict;
use warnings;
-use inc::Module::Install 0.87;
+use inc::Module::Install 0.91;
name 'Catalyst-Plugin-Compress-Zlib';
all_from 'lib/Catalyst/Plugin/Compress/Zlib.pm';
requires 'Catalyst::Runtime' => '5.7006';
requires 'Compress::Zlib';
+requires 'MRO::Compat';
auto_install;
resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/trunk/Catalyst-Plugin-Compress-Zlib/';
Modified: trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Deflate.pm
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Deflate.pm 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Deflate.pm 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,6 +1,7 @@
package Catalyst::Plugin::Compress::Deflate;
-
use strict;
+use warnings;
+use MRO::Compat;
use Compress::Zlib ();
@@ -8,25 +9,25 @@
my $c = shift;
if ( $c->response->content_encoding ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
unless ( $c->response->body ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
unless ( $c->response->status == 200 ) {
- return $c->NEXT::finalize;
+ return $c->next::method;
}
unless ( $c->response->content_type =~ /^text|xml$|javascript$/ ) {
- return $c->NEXT::finalize;
+ return $c->next::method;
}
my $accept = $c->request->header('Accept-Encoding') || '';
unless ( index( $accept, "deflate" ) >= 0 ) {
- return $c->NEXT::finalize;
+ return $c->next::method;
}
my ( $d, $out, $status, $deflated );
@@ -63,7 +64,7 @@
$c->response->content_encoding('deflate');
$c->response->headers->push_header( 'Vary', 'Accept-Encoding' );
- $c->NEXT::finalize;
+ $c->next::method;
}
1;
@@ -83,6 +84,10 @@
Deflate compress response if client supports it.
+=head1 METHODS
+
+=head2 finalize
+
=head1 SEE ALSO
L<Catalyst>.
Modified: trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Gzip.pm
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Gzip.pm 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Gzip.pm 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,6 +1,7 @@
package Catalyst::Plugin::Compress::Gzip;
-
use strict;
+use warnings;
+use MRO::Compat;
use Compress::Zlib ();
@@ -8,25 +9,25 @@
my $c = shift;
if ( $c->response->content_encoding ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
unless ( $c->response->body ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
unless ( $c->response->status == 200 ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
unless ( $c->response->content_type =~ /^text|xml$|javascript$/ ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
my $accept = $c->request->header('Accept-Encoding') || '';
unless ( index( $accept, "gzip" ) >= 0 ) {
- return $c->NEXT::finalize;
+ return $c->next::method(@_);
}
my $body = $c->response->body;
@@ -38,7 +39,7 @@
$c->response->content_encoding('gzip');
$c->response->headers->push_header( 'Vary', 'Accept-Encoding' );
- $c->NEXT::finalize;
+ $c->next::method(@_);
}
1;
@@ -58,6 +59,10 @@
Gzip compress response if client supports it.
+=head1 METHODS
+
+=head2 finalize
+
=head1 SEE ALSO
L<Catalyst>.
Modified: trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Zlib.pm
===================================================================
--- trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Zlib.pm 2009-11-20 01:09:14 UTC (rev 11931)
+++ trunk/Catalyst-Plugin-Compress-Zlib/lib/Catalyst/Plugin/Compress/Zlib.pm 2009-11-20 01:20:26 UTC (rev 11932)
@@ -1,9 +1,9 @@
package Catalyst::Plugin::Compress::Zlib;
-
use strict;
+use warnings;
use base 'Catalyst::Plugin::Compress::Gzip';
-our $VERSION = '0.03';
+our $VERSION = '0.04';
1;
More information about the Catalyst-commits
mailing list