File Coverage

blib/lib/Test2/AsyncSubtest/Event/Attach.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	4	4	100.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	37	39	94.8

package Test2::AsyncSubtest::Event::Attach;
use strict;
use warnings;

our $VERSION = '0.000019'; # TRIAL

use base 'Test2::Event';
use Test2::Util::HashBase qw/id/;

sub no_display { 1 }

sub callback {
    my $self = shift;
    my ($hub) = @_;

    my $id = $self->{+ID};
    my $ids = $hub->ast_ids;

    unless (defined $ids->{$id}) {
        require Test2::Event::Exception;
        my $trace = $self->trace;
        $hub->send(
            Test2::Event::Exception->new(
                trace => $trace,
                error => "Invalid AsyncSubtest attach ID: $id at " . $trace->debug . "\n",
            )
        );
        return;
    }

    if ($ids->{$id}++) {
        require Test2::Event::Exception;
        my $trace = $self->trace;
        $hub->send(
            Test2::Event::Exception->new(
                trace => $trace,
                error => "AsyncSubtest ID $id already attached at " . $trace->debug . "\n",
            )
        );
        return;
    }
}

1;

__END__