File Coverage

lib/Devel/ebug/Wx/Plugin/Listener/Base.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	42	28.5

package Devel::ebug::Wx::Plugin::Listener::Base;

use strict;
use base qw(Class::Accessor::Fast);
use Scalar::Util qw(weaken);

__PACKAGE__->mk_accessors( qw(_subscribed) );

sub add_subscription {
    my( $self, $source, @args ) = @_;

    $self->_subscribed( [] ) unless $self->_subscribed;
    $source->add_subscriber( @args );
    push @{$self->_subscribed}, [ $source, @args ];
    foreach my $ref ( @{$self->_subscribed->[-1]} ) {
        next unless ref $ref;
        weaken( $ref );
    }
}

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

    foreach my $sub ( @{$self->_subscribed || []} ) {
        next unless $sub->[0] && $sub->[1]; # might have been destroyed
        $sub->[0]->delete_subscriber( @$sub[1 .. $#$sub] );
    }
    $self->_subscribed( undef );
}

1;