Yet Another CPAN Grep

Test-NoLeaks ( B/BI/BINARY/Test-NoLeaks-0.06.tar.gz, BINARY, 2017; MetaCPAN )

Test-NoLeaks/lib/Test/NoLeaks.pm ( view source; MetaCPAN )

uspicious code

  sub might_leak {
    my $t = Test::Mojo->new('MyApp');
    $t->post_ok('/search.json' => form => {q => 'Perl'})
        ->status_is(200);
    ...;
  }

  test_noleaks (
      code

, i.e.

  my $t = Test::Mojo->new('MyApp');
  ok($t);
  sub might_leak {
    $t->post_ok('/search.json' => form => {q => 'Perl'})
        ->status_is(200);
    ...;
  }

That way web-application is cr