File Coverage

blib/lib/Test2/Event/Subtest.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition	4	4	100.0
subroutine	6	6	100.0
pod	1	2	50.0
total	37	38	97.3

package Test2::Event::Subtest;
use strict;
use warnings;

our $VERSION = '0.000042';

use base 'Test2::Event::Ok';
use Test2::Util::HashBase qw{subevents buffered subtest_id};

sub init {
    my $self = shift;
    $self->SUPER::init();
    $self->{+SUBEVENTS} ||= [];
}

sub summary {
    my $self = shift;

    my $name = $self->{+NAME} || "Nameless Subtest";

    my $todo = $self->{+TODO};
    if ($todo) {
        $name .= " (TODO: $todo)";
    }
    elsif (defined $todo) {
        $name .= " (TODO)"
    }

    return $name;
}

1;

__END__