File Coverage

blib/lib/OurNet/BBSApp/Monitor.pm

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	4	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	3	0.0
total	4	27	14.8

package OurNet::BBSApp::Monitor;

use vars qw/@blacklist @newblacklist/;

sub add {
    push @newblacklist, $_[0];
}

sub del {
    my $trg = shift;
    my @nl;
    foreach my $item (@blacklist) {
        push @nl, $item unless $item eq $trg;
    }
    @blacklist = @nl;
}

sub process {
    foreach my $item (@newblacklist) {
        $item->refresh;
        push @blacklist, $item;
        $item->process;
    }

    @newblacklist = ();

    foreach my $item (@blacklist) {
        $item->process if $item->refresh;
    }
}

1;