File Coverage

blib/lib/JMAP/Tester/Logger/HTTP.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	39	39	100.0

use v5.14.0;
package JMAP::Tester::Logger::HTTP 0.110;

use Moo;

use namespace::clean;

use experimental 'signatures';

my %counter;

sub _log_generic ($self, $tester, $type, $thing) {
  my $i = $counter{$type}++;
  my $ident = $tester->ident;
  $self->write("=== BEGIN \U$type\E $$.$i ($ident) ===\n");
  $self->write( $thing->as_string );
  $self->write("=== END \U$type\E $$.$i ($ident) ===\n");
  return;
}

for my $which (qw(jmap misc upload download)) {
  for my $what (qw(request response)) {
    my $method = "log_${which}_${what}";
    no strict 'refs';
    *$method = sub ($self, $tester, $arg) {
      $self->_log_generic($tester, "$which $what", $arg->{"http_$what"});
    }
  }
}

with 'JMAP::Tester::Logger';

1;

__END__