X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FSCS.pm;h=035c803360ea69a8e49b55e3c4d8dd1cc177b3cc;hb=2d08e5ba1dfaf7cda3d937e606ff9f330f0f052c;hp=af606f153b3dee6afc23a5ff4a82a3263bbb202a;hpb=a2cad2be778cc9bc06303a1748edb7394f19d2d3;p=scpubgit%2FApp-SCS.git diff --git a/lib/App/SCS.pm b/lib/App/SCS.pm index af606f1..035c803 100644 --- a/lib/App/SCS.pm +++ b/lib/App/SCS.pm @@ -84,7 +84,11 @@ sub load_plugin { sub run_if_script { my $self = shift; if (caller(1)) { - return $self->web->to_psgi_app; + my $code; + return sub { + $code ||= $self->web->to_psgi_app; + &$code + }; } else { return $self->run; }