All the Perl that's Practical to Extract and Report
I got a report today that this failed for someone:
foreach my $meth (keys %{$data}) { is($rr->$meth, $data->{$meth}, "$type - $meth() correct"); }