Help for this page

Select Code to Download


  1. or download this
    Orginal non-OO: &{\&{$testname}}($system);
updated as OO:  $self->{&{\&{$testname}}}->($system); #system is hashr
+ef
  2. or download this
    =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
  3. or download this
    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
  4. or download this
    package tests;
#constructor
...

    return $system;
}