| Current Path : /usr/share/doc/perl-Event/t/ |
| Current File : //usr/share/doc/perl-Event/t/attach_to.t |
#!/usr/bin/perl -w
use strict;
use Test; plan tests => 3;
use Event 0.53;
# $Event::DebugLevel = 3;
my $array = Event->timer(attach_to => [0,1,2], after => 1, cb => \&die);
ok $array->[2], 2;
ok $array->interval, 1;
eval { Event->timer(attach_to => bless([]), after => 1, cb => \&die); };
ok $@, '/blessed/';