Upgrade Test-Simple to 1.302071.

[perl5.git] / cpan / Test-Simple / lib / Test2 / Event / Subtest.pm

diff --git a/cpan/Test-Simple/lib/Test2/Event/Subtest.pm b/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
index 49b827f..6aefc0e 100644 (file)
--- a/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
@@ -2,16 +2,50 @@ package Test2::Event::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302035';
+our $VERSION = '1.302071';
 
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
 use Test2::Util::HashBase qw{subevents buffered subtest_id};
 
 sub init {
-    my $self = shift;
-    $self->SUPER::init();
-    $self->{+SUBEVENTS} ||= [];
+       my $self = shift;
+       $self->SUPER::init();
+       $self->{+SUBEVENTS} ||= [];
+       if ($self->{+EFFECTIVE_PASS}) {
+               $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}};
+       }
+}
+
+{
+       no warnings 'redefine';
+
+       sub set_subevents {
+               my $self      = shift;
+               my @subevents = @_;
+
+               if ($self->{+EFFECTIVE_PASS}) {
+                       $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @subevents;
+               }
+
+               $self->{+SUBEVENTS} = \@subevents;
+       }
+
+       sub set_effective_pass {
+               my $self = shift;
+               my ($pass) = @_;
+
+               if ($pass) {
+                       $_->set_effective_pass(1) for grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}};
+               }
+               elsif ($self->{+EFFECTIVE_PASS} && !$pass) {
+                       for my $s (grep { $_->can('effective_pass') } @{$self->{+SUBEVENTS}}) {
+                               $_->set_effective_pass(0) unless $s->can('todo') && defined $s->todo;
+                       }
+               }
+
+               $self->{+EFFECTIVE_PASS} = $pass;
+       }
 }
 
 sub summary {