use strict;
use lib 'lib';
use Time::HiRes qw( time sleep );
use Jifty;

BEGIN { Jifty->new };

sub ping {
    my ($class, $sub) = @_;
    while (1) {
        my $new_time = time;
        warn "Time: $new_time\n";
        Clock::Event::Tick->new($new_time)->publish;
        sleep 0.5;
    }
    exit;
}

ping();

1;