1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
#!perl
use Test::More tests => 2;
package foo;
use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
our @ISA = qw/Object::Event/;
package main;
use common::sense;
my $f = foo->new;
my $a = 0;
my $b = 0;
$f->reg_cb (
test => sub {
my ($f) = @_;
$a++;
$f->unreg_me;
$f->reg_cb (test => sub {
my ($f) = @_;
$b++;
$f->unreg_me;
});
()
}
);
$f->event ('test');
$f->event ('test');
$f->event ('test');
is ($a, 1, 'first callback was called once');
is ($b, 1, 'second callback was called once');
|