use warnings;
use strict;

use Async::Event::Interval;
use Logging::Simple;

my $log = Logging::Simple->new(
    file => 'test.log',
    write_mode => 'w'
);

my $count = 1;

my $e = Async::Event::Interval->new(
    1,
    sub {
        print "running poll $count\n";
        $log->_0('running poll $count') ;
        $count++;
    }
);

$e->start;

for (0..3){
    $log->_0('logging in main');
    sleep 1;
}

$e->stop;

##</code><code>##

[2018-01-23 07:39:04.604][lvl 0] logging in main
[2018-01-23 07:39:05.605][lvl 0] logging in main
[2018-01-23 07:39:06.605][lvl 0] logging in main
[2018-01-23 07:39:07.605][lvl 0] logging in main