use utf8;
use parent qw/Plack::Component/;
-our $VERSION = '0.000_003';
+our $VERSION = '0.000_004';
use DBIx::Simple;
use File::Slurp;
my $app = shift;
sub {
my $res = $app->(@_);
- push @{$res->[2]}, $footer if $res->[0] == 200;
+ $res->[2][0] =~ s,</body>,$footer</body>, if $res->[0] == 200;
$res;
}
};