File Coverage

blib/lib/Test/Ika/Reporter/Test.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	1	2	50.0
condition			n/a
subroutine	10	11	90.9
pod	0	6	0.0
total	38	51	74.5

package Test::Ika::Reporter::Test;
use strict;
use warnings;
use utf8;
use Scope::Guard;

sub new {
    my $class = shift;
    return bless {
        describe => [],
        report => [],
    }, $class;
}

sub report { $_[0]->{report} }

sub describe {
    my ($self, $name) = @_;

    push @{$self->{describe}}, $name;
    return Scope::Guard->new(sub {
        pop @{$self->{describe}};
    });
}

sub exception {
    my ($self, $name) = @_;
    $name =~ s/\n\Z//;

    push @{$self->{report}}, [exception => $name];
}

sub it {
    my ($self, $name, $test) = @_;

    push @{$self->{report}}, ['it', $name, $test, [@{$self->{describe}}]];
}

sub finalize {
    my $self = shift;
    if ($self->{finalized}++) {
        Carp::croak("Do not finalize twice.");
    }
}

1;
__END__