#!/usr/bin/perl -w
use strict;

use Event::Lib;
use AnyEvent;


my $t;

my $t1 = timer_new(\&test_any_event);
$t1->add(1);

sub test_any_event
{
    print "Event::Lib timer\n";
    $t = AnyEvent->timer( after => 1, cb => sub {
        print "AnyEvent timer\n";
        undef $t;
    } );
}

event_mainloop();

print  "model is $AnyEvent::MODEL\n";