| Subject: | Add Test::Harness->strap |
The unofficial way to get at the THS is $Test::Harness::Strap. This isn't good for all the reasons exposing a global variable isn't good.
Instead, have a simple Test::Harness->strap() method which returns $Strap.
Similar to Test::More->builder.
sub strap { return $Strap }
This shields us better against future internal changes and is good enough to be official.