Help for this page

Select Code to Download

Select or download this
```
    my %h= %{ shift @_ };
```

Select or download this

sub ... {
    my ($pkg,$file,$line) = caller($TestLevel);
...
    ++ $ntest;
    $ok;
}