#!./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/';