view release on metacpan or  search on metacpan

lib/Test/Metrics/Any.pm  view on Meta::CPAN

   is_metrics_from( $code, \%metrics, $name )

Asserts the value of metrics reported by running the given piece of code.

The metrics in the test adapter are cleared, then the code is invoked, then
any metrics are checked in the same manner as L</is_metrics>.

=cut

sub is_metrics_from(&@)
{
   my ( $code, $expect, $testname ) = @_;

   Metrics::Any::Adapter::Test->clear;

   $code->();

   local $Test::Builder::Level = $Test::Builder::Level + 1;
   return is_metrics( $expect, $testname );
}