X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FStatic%2FSimple.pm;h=05e4c8ad4bd205802e1d93531b57bd39175f5e4d;hb=7c97dd210f9079300f1b67fcba852e95203f4cb3;hp=4f1a1c959553d8dd87d3e92a024e5829a06a8857;hpb=aa5935f174f36400df9ec6a656abbd7f4fdfa844;p=catagits%2FCatalyst-Plugin-Static-Simple.git diff --git a/lib/Catalyst/Plugin/Static/Simple.pm b/lib/Catalyst/Plugin/Static/Simple.pm index 4f1a1c9..05e4c8a 100644 --- a/lib/Catalyst/Plugin/Static/Simple.pm +++ b/lib/Catalyst/Plugin/Static/Simple.pm @@ -5,12 +5,13 @@ use File::stat; use File::Spec (); use IO::File (); use MIME::Types (); +use MooseX::Types::Moose qw/ArrayRef Str/; use namespace::autoclean; -our $VERSION = '0.26'; +our $VERSION = '0.28'; has _static_file => ( is => 'rw' ); -has _static_debug_message => ( is => 'rw', isa => 'Str' ); +has _static_debug_message => ( is => 'rw', isa => ArrayRef[Str] ); before prepare_action => sub { my $c = shift; @@ -59,7 +60,8 @@ before prepare_action => sub { } }; -override dispatch => sub { +around dispatch => sub { + my $orig = shift; my $c = shift; return if ( $c->res->status != 200 ); @@ -71,7 +73,7 @@ override dispatch => sub { return $c->_serve_static; } else { - return super; + return $c->$orig(@_); } }; @@ -568,6 +570,8 @@ Tomas Doran, Justin Wheeler (dnm) +Matt S Trout, + =head1 THANKS The authors of Catalyst::Plugin::Static: