view release on metacpan or  search on metacpan

lib/Exception/Reporter/Summarizer/PlackRequest.pm  view on Meta::CPAN

#pod summarize L<Plack::Request> objects, adding a summary for the request.
#pod
#pod =cut

use Try::Tiny;

sub new {
  my ($class, $arg) = @_;
  $arg ||= {};

  return bless { } => $class;
}

sub can_summarize {
  my ($self, $entry) = @_;
  return try { $entry->[1]->isa('Plack::Request') };
}

sub summarize {
  my ($self, $entry) = @_;
  my ($name, $req, $arg) = @$entry;