view release on metacpan or  search on metacpan

lib/Devel/LeakGuard/Object.pm  view on Meta::CPAN

  expect => {
      'My::DB' => [ -1, 1 ]
  };

=back

=cut

use Devel::Peek;

sub leakguard(&@) {
    my $block     = shift;
    my $leakstate = Devel::LeakGuard::Object::State->new( @_ );
    $block->();
    $leakstate->done();
    return;
}

=head2 C<< leakstate >>

Get the current allocation counts for all tracked objects. If