PNG  IHDR;IDATxܻn0K )(pA 7LeG{ §㻢|ذaÆ 6lذaÆ 6lذaÆ 6lom$^yذag5bÆ 6lذaÆ 6lذa{ 6lذaÆ `}HFkm,mӪôô! x|'ܢ˟;E:9&ᶒ}{v]n&6 h_tڠ͵-ҫZ;Z$.Pkž)!o>}leQfJTu іچ\X=8Rن4`Vwl>nG^is"ms$ui?wbs[m6K4O.4%/bC%t Mז -lG6mrz2s%9s@-k9=)kB5\+͂Zsٲ Rn~GRC wIcIn7jJhۛNCS|j08yiHKֶۛkɈ+;SzL/F*\Ԕ#"5m2[S=gnaPeғL lذaÆ 6l^ḵaÆ 6lذaÆ 6lذa; _ذaÆ 6lذaÆ 6lذaÆ RIENDB` package Test2::AsyncSubtest::Hub; use strict; use warnings; our $VERSION = '1.302204'; use base 'Test2::Hub::Subtest'; use Test2::Util::HashBase qw/ast_ids ast/; use Test2::Util qw/get_tid/; sub init { my $self = shift; $self->SUPER::init(); if (my $format = $self->format) { my $hide = $format->can('hide_buffered') ? $format->hide_buffered : 1; $self->format(undef) if $hide; } } sub inherit { my $self = shift; my ($from, %params) = @_; if (my $ls = $from->{+_LISTENERS}) { push @{$self->{+_LISTENERS}} => grep { $_->{inherit} } @$ls; } if (my $pfs = $from->{+_PRE_FILTERS}) { push @{$self->{+_PRE_FILTERS}} => grep { $_->{inherit} } @$pfs; } if (my $fs = $from->{+_FILTERS}) { push @{$self->{+_FILTERS}} => grep { $_->{inherit} } @$fs; } } sub send { my $self = shift; my ($e) = @_; if (my $ast = $self->ast) { if ($$ != $ast->pid || get_tid != $ast->tid) { if (my $plan = $e->facet_data->{plan}) { unless ($plan->{skip}) { my $trace = $e->facet_data->{trace}; bless($trace, 'Test2::EventFacet::Trace'); $trace->alert("A plan should not be set inside an async-subtest (did you call done_testing()?)"); return; } } } } return $self->SUPER::send($e); } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::AsyncSubtest::Hub - Hub used by async subtests. =head1 DESCRIPTION This is a subclass of L used for async subtests. =head1 SYNOPSIS You should not use this directly. =head1 METHODS =over 4 =item $ast = $hub->ast Get the L object to which this hub is bound. =back =head1 SOURCE The source code repository for Test2-AsyncSubtest can be found at F. =head1 MAINTAINERS =over 4 =item Chad Granum Eexodist@cpan.orgE =back =head1 AUTHORS =over 4 =item Chad Granum Eexodist@cpan.orgE =back =head1 COPYRIGHT Copyright Chad Granum Eexodist7@gmail.comE. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F =cut