ict;
use warnings;
use parent qw(HTML::Mason::Plugin);
use Time::HiRes qw(time);
use JSON;
my $json = JSON->new->convert_blessed(1)->allow_blessed(1)->allow_unknown(1)->utf8(1);
sub start_com
ame->{end} = time();
$frame->{duration} = $frame->{end} - $frame->{start};
$frame->{args} = $json->encode($context->args);
}
sub end_request_hook {
my ($self, $context) = @_;
$env{main