File Coverage

blib/lib/Test2/AsyncSubtest/Event/Detach.pm
Criterion Covered Total %
statement 27 27 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Test2::AsyncSubtest::Event::Detach;
2 77     77   498 use strict;
  77         176  
  77         2062  
3 77     77   405 use warnings;
  77         163  
  77         2847  
4              
5             our $VERSION = '0.000153';
6              
7 77     77   408 use base 'Test2::Event';
  77         139  
  77         7100  
8 77     77   523 use Test2::Util::HashBase qw/id/;
  77         141  
  77         589  
9              
10 815     815 1 193693 sub no_display { 1 }
11              
12             sub callback {
13 251     251 1 17281 my $self = shift;
14 251         1726 my ($hub) = @_;
15              
16 251         1229 my $id = $self->{+ID};
17 251         1859 my $ids = $hub->ast_ids;
18              
19 251 100       2071 unless (defined $ids->{$id}) {
20 1         6 require Test2::Event::Exception;
21 1         7 my $trace = $self->trace;
22 1         12 $hub->send(
23             Test2::Event::Exception->new(
24             trace => $trace,
25             error => "Invalid AsyncSubtest detach ID: $id at " . $trace->debug . "\n",
26             )
27             );
28 1         279 return;
29             }
30              
31 250 100       2885 unless (delete $ids->{$id}) {
32 1         7 require Test2::Event::Exception;
33 1         4 my $trace = $self->trace;
34 1         8 $hub->send(
35             Test2::Event::Exception->new(
36             trace => $trace,
37             error => "AsyncSubtest ID $id is not attached at " . $trace->debug . "\n",
38             )
39             );
40 1         193 return;
41             }
42             }
43              
44             1;
45              
46             __END__