Commits

Anonymous committed 19167af

Extracted the _tot_add_results method.

  • Participants
  • Parent commits 2628f14

Comments (0)

Files changed (1)

modules/Test-Shlomif-Harness/lib/Test/Shlomif/Harness/Obj.pm

     }
 }
 
+sub _tot_add_results
+{
+    my $self = shift;
+    my $results = shift;
+
+    foreach my $type (qw(bonus max ok todo))
+    {
+        $self->_tot_add($type => $results->{$type});
+    }
+    $self->_tot_add(sub_skipped => $results->{skip});
+}
+
 sub _run_single_test
 {
     my ($self, %args) = @_;
                 ml          => $self->output()->ml(),
                );
 
-    foreach my $type (qw(bonus max ok todo))
-    {
-        $self->_tot_add($type => $results{$type});
-    }
-    $self->_tot_add(sub_skipped => $results{skip});
+    $self->_tot_add_results(\%results);
 
     my($estatus, $wstatus) = @results{qw(exit wait)};