Select Code to Download

Orginal non-OO: &{\&{$testname}}($system);
updated as OO:  $self->{&{\&{$testname}}}->($system); #system is hashr
+ef

=pod
Nov 17 12:27:47, tests.pm              , executetest          ,   128:
+ processing executetest
...
SELF:
Nov 17 12:27:47, tests.pm              , cleanupConfig        ,  1572,
+ FATAL WARNING: Can't call method "_idown" on an undefined value
=cut

use XML::Simple;
my @xmlOptsO = (KeepRoot=>1, KeyAttr=>[]);
...

$tests->enqueue(XMLout("<system><job><step name='cleanup'><nextjob>0:1
+</nextjob></job></system>", @xmlOptsO)); #start
my $system = $test->dequeue(); #complete

package tests;
#constructor
...

    return $system;
}