File Coverage

blib/lib/Log/Log4perl/Appender/TAP.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	3	5	60.0
subroutine	6	6	100.0
pod	1	2	50.0
total	32	35	91.4

package Log::Log4perl::Appender::TAP;

use strict;
use warnings;
use 5.008001;
use Test2::API qw( context );
our @ISA = qw( Log::Log4perl::Appender );

# ABSTRACT: Append to TAP output
our $VERSION = '0.03'; # VERSION


sub new
{
  my $proto = shift;
  my $class = ref $proto || $proto;
  my %args = @_;
  bless {
    method  => $args{method} || 'note',
  }, $class;
}

sub log
{
  my $self = shift;
  my %args = @_;
  my $method = $self->{method};
  my $ctx = context();
  $ctx->$method($args{message});
  $ctx->release;
  return;
}

1;

__END__