Event-Lib

 view release on metacpan or  search on metacpan

t/50_cleanup.t  view on Meta::CPAN

package MyEvent;
use Event::Lib;
use base qw/Event::Lib::base Event::Lib::timer/;

my $_DESTROY = "not called";

sub new {
    my $class = shift;
    bless Event::Lib::timer_new(shift) => $class;
}

sub DESTROY {
    $_DESTROY = "called";
    shift->SUPER::DESTROY;
}

package main;
use Event::Lib;
use Test;

t/51_cleanup_persistent.t  view on Meta::CPAN

package MyEvent;
use Event::Lib;
use base qw/Event::Lib::signal/;

my $_DESTROY = "not called";

sub new {
    my $class = shift;
    bless signal_new(@_) => $class;
}

sub DESTROY {
    $_DESTROY = "called";
    shift->SUPER::DESTROY;
}

package main;
$^W = 0;

t/52_cleanup_readded.t  view on Meta::CPAN

# causing a leak. 

package MyEvent;
use Event::Lib;
use base qw/Event::Lib::timer/;

my $_DESTROY = "not called";

sub new {
    my $class = shift;
    bless timer_new(@_) => $class;
}

sub DESTROY {
    $_DESTROY = "called";
    shift->SUPER::DESTROY;
}

package main;

use Test;

t/53_cleanup_undef.t  view on Meta::CPAN

# is properly cleaned up.

package MyEvent;
use Event::Lib;
use base qw/Event::Lib::event/;

our @DESTROYS;

sub new {
    my $class = shift;
    bless event_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }
}

package MyTimer;
use Event::Lib;
use base qw/Event::Lib::timer/;

our @DESTROYS;

sub new {
    my $class = shift;
    bless timer_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }
}
    
package MySignal;
use Event::Lib;
use base qw/Event::Lib::signal/;

our @DESTROYS;

sub new {
    my $class = shift;
    bless signal_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }

t/54_cleanup_reassign.t  view on Meta::CPAN

package MyEvent;
use Event::Lib;
use base qw/Event::Lib::event/;
use warnings;

our @DESTROYS;

sub new {
    my $class = shift;
    bless event_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }
}

package MyTimer;
use Event::Lib;
use base qw/Event::Lib::timer/;

our @DESTROYS;

sub new {
    my $class = shift;
    bless timer_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }
}
    
package MySignal;
use Event::Lib;
use base qw/Event::Lib::signal/;

our @DESTROYS;

sub new {
    my $class = shift;
    bless signal_new(@_) => $class;
}

{
    my $count = 0;
    sub DESTROY {
	my $self = shift;
	push @DESTROYS, ++$count;
	no warnings 'misc';
	$self->SUPER::DESTROY;
    }

 view all matches for this distribution
 view release on metacpan -  search on metacpan