Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/Net/Curl/Promiser/LeakDetector.pm

package Net::Curl::Promiser::LeakDetector;

use strict;
use warnings;

sub DESTROY {
    my ($self) = @_;

    if (!$self->{'ignore_leaks'} && ${^GLOBAL_PHASE} && ${^GLOBAL_PHASE} eq 'DESTRUCT' ) {
        warn "$self: destroyed at global destruction; memory leak likely!";
    }
}

1;