Updated by Brian Medley 2015-09-23

File timer.pl Added

+use Mojolicious::Lite;

+plugin "Repeating";

+get '/' => sub {

+    my $c = shift;

+    $c->render(text => 'Text!');

+};

+app->start;

Created by Brian Medley 2015-09-23

View revision

File Repeating.pm Added

+package Mojo::IOLoop::Repeating;

+use Mojo::Base 'Mojo::EventEmitter';

+use Mojo::IOLoop;

+use Mojo::Loader qw(load_class);

+use Date::Calc qw(Today_and_Now Add_Delta_DHMS Delta_DHMS Date_to_Time);

+use Time::Crontab;

+has events => sub { [] };

+sub repeating {

+    my $self = shift;

+    my $time = time;

+    my @now = Today_and_Now;

+    my @start = @now;

+    $start[-1] = 0;

+    my (@offset) = Delta_DHMS(@start, @now);

+    $offset[-1] = 60 - $offset[-1];

+    my @next = Add_Delta_DHMS(@now, @offset);

+    my $now = Date_to_Time(@now);

+    my $next = Date_to_Time(@next);

+    my $seconds = $next - $now;

+    foreach my $event (@{ $self->events }) {

+        my ($line, $pkg, $method) = @{ $event };

+        if (my $e = load_class($pkg)) {

+            die ref $e ? "Exception: $e" : 'Not found!';

+        }

+        my $time_cron = Time::Crontab->new($line);

+        if ($time_cron->match($time)) {

+            no strict qw(refs);

+            &{ "${pkg}::$method" };

+        }

+    }

+    Mojo::IOLoop->next_tick(sub {

+        warn("seconds: $seconds");

+        my $repeating = \&repeating;

+        # Mojo::IOLoop->timer($seconds => \&repeating);

+        Mojo::IOLoop->timer($seconds => sub {

+            $repeating->($self);

+        });

+    });

+}

+sub run {

+    my $self = shift;

+    my $repeating = \&repeating;

+    Mojo::IOLoop->timer(1 => sub {

+        $repeating->($self);

+    });

+    Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

+}

+1;

+package Stuff;

+use Mojo::Base -strict;

+sub minute {

+    say("minute");

+}

+sub hour {

+    say("hour");

+}

+sub five {

+    say("five");

+}

+1;

+package Mojolicious::Command::repeat;

+use Mojo::Base 'Mojolicious::Command';

+use Mojo::IOLoop::Repeating;

+has description => 'Repeative events';

+has usage       => "Usage: APPLICATION repeat\n";

+sub run {

+    my ($self, @args) = @_;

+    my $repeat = Mojo::IOLoop::Repeating->new;

+    $repeat->{events} = [

+        ["* * * * *", "Stuff", "minute"],

+        ["*/5 * * * *", "Stuff", "five"],

+        ["0 * * * *", "Stuff", "hour"],

+    ];

+    $repeat->run;

+}

+1;