[Catalyst-commits] r11937 - in trunk/Catalyst-Plugin-Compress-Bzip2: . lib/Catalyst/Plugin/Compress

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Fri Nov 20 01:33:28 GMT 2009


Author: t0m
Date: 2009-11-20 01:33:28 +0000 (Fri, 20 Nov 2009)
New Revision: 11937

Removed:
   trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST
   trunk/Catalyst-Plugin-Compress-Bzip2/README
Modified:
   trunk/Catalyst-Plugin-Compress-Bzip2/
   trunk/Catalyst-Plugin-Compress-Bzip2/Changes
   trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST.SKIP
   trunk/Catalyst-Plugin-Compress-Bzip2/Makefile.PL
   trunk/Catalyst-Plugin-Compress-Bzip2/lib/Catalyst/Plugin/Compress/Bzip2.pm
Log:
New version of this one also


Property changes on: trunk/Catalyst-Plugin-Compress-Bzip2
___________________________________________________________________
Name: svn:ignore
   + Catalyst-Plugin-Compress-Bzip2-*
pm_to_blib
blib
inc
Makefile
MANIFEST
README
MANIFEST.bak
Makefile.old



Modified: trunk/Catalyst-Plugin-Compress-Bzip2/Changes
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/Changes	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/Changes	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,5 +1,9 @@
 Revision history for Perl extension Catalyst::Plugin::Compress::Bzip2
 
+0.04  2009-11-20
+       - Update Module::Install to 0.91
+       - Switch from NEXT to MRO::Compat
+
 0.03  2007-08-06
         - Fix missing inc/ problem.
 

Deleted: trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,20 +0,0 @@
-Changes
-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/Compress/Bzip2.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-Bzip2/MANIFEST.SKIP
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST.SKIP	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/MANIFEST.SKIP	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,3 +1,5 @@
+\bCatalyst-Plugin-Compress-Bzip2-
+
 # Avoid version control files.
 \bRCS\b
 \bCVS\b

Modified: trunk/Catalyst-Plugin-Compress-Bzip2/Makefile.PL
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/Makefile.PL	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/Makefile.PL	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,14 +1,20 @@
 use strict;
 use warnings;
-use inc::Module::Install 0.87;
+use inc::Module::Install 0.91;
 
 name 'Catalyst-Plugin-Compress-Bzip2';
 all_from 'lib/Catalyst/Plugin/Compress/Bzip2.pm';
 
 requires 'Catalyst::Runtime' => '5.7006';
 requires 'Compress::Bzip2' => '2';
+requires 'MRO::Compat';
 
 auto_install;
 resources repository => 'http://dev.catalyst.perl.org/repos/Catalyst/trunk/Catalyst-Plugin-Compress-Bzip2/';
 
+if ($Module::Install::AUTHOR) {
+    system("pod2text lib/Catalyst/Plugin/Compress/Bzip2.pm > README")
+        and die $!;
+}
+
 WriteAll;

Deleted: trunk/Catalyst-Plugin-Compress-Bzip2/README
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/README	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/README	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,19 +0,0 @@
-NAME
-    Catalyst::Plugin::Compress::Bzip2 - Bzip2 response
-
-SYNOPSIS
-        use Catalyst qw[Compress::Bzip2];
-
-DESCRIPTION
-    Bzip2 compress response if client supports it.
-
-SEE ALSO
-    Catalyst.
-
-AUTHOR
-    Christian Hansen, "ch at ngmedia.com"
-
-LICENSE
-    This library is free software . You can redistribute it and/or modify it
-    under the same terms as perl itself.
-

Modified: trunk/Catalyst-Plugin-Compress-Bzip2/lib/Catalyst/Plugin/Compress/Bzip2.pm
===================================================================
--- trunk/Catalyst-Plugin-Compress-Bzip2/lib/Catalyst/Plugin/Compress/Bzip2.pm	2009-11-20 01:26:42 UTC (rev 11936)
+++ trunk/Catalyst-Plugin-Compress-Bzip2/lib/Catalyst/Plugin/Compress/Bzip2.pm	2009-11-20 01:33:28 UTC (rev 11937)
@@ -1,34 +1,35 @@
 package Catalyst::Plugin::Compress::Bzip2;
-
+use warnings;
 use strict;
+use MRO::Compat;
 
 use Compress::Bzip2 2.0 ();
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 sub finalize {
     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, "bzip2" ) >= 0 ) {
-        return $c->NEXT::finalize;
+        return $c->next::method(@_);
     }
 
     $c->response->body( Compress::Bzip2::memBzip( $c->response->body ) );
@@ -36,7 +37,7 @@
     $c->response->content_encoding('bzip2');
     $c->response->headers->push_header( 'Vary', 'Accept-Encoding' );
 
-    $c->NEXT::finalize;
+    $c->next::method(@_);
 }
 
 1;
@@ -56,6 +57,10 @@
 
 Bzip2 compress response if client supports it.
 
+=head1 METHODS
+
+=head2 finalize
+
 =head1 SEE ALSO
 
 L<Catalyst>.




More information about the Catalyst-commits mailing list