Scheduler: Fixed under warning, added some additional YAML tests

[catagits/Catalyst-Plugin-Scheduler.git] / lib / Catalyst / Plugin / Scheduler.pm

diff --git a/lib/Catalyst/Plugin/Scheduler.pm b/lib/Catalyst/Plugin/Scheduler.pm
index c85de68..6a200f1 100644 (file)
--- a/lib/Catalyst/Plugin/Scheduler.pm
+++ b/lib/Catalyst/Plugin/Scheduler.pm
@@ -85,7 +85,7 @@ sub dispatch {
     for my $event ( @{ $c->_events } ) {
         my $next_run;
 
-        if (   $event->{trigger}
+        if (   $event->{trigger} && $c->req->params->{schedule_trigger}
             && $event->{trigger} eq $c->req->params->{schedule_trigger} )
         {
 
@@ -210,7 +210,7 @@ sub scheduler_state {
             = $c->_event_state->{events}->{ $event->{event} }->{last_run};
         if ( $last_run ) {
             $last_run = DateTime->from_epoch(
-                epoch => $last_run,
+                epoch     => $last_run,
                 time_zone => $conf->{time_zone},
             );
             $dump->{last_run} 
@@ -248,7 +248,7 @@ sub _check_yaml {
         if ( $mtime > $c->_event_state->{yaml_mtime}->{$$} ) {
             $c->_event_state->{yaml_mtime}->{$$} = $mtime;
 
-            # clean up old PID files listed in yaml_mtime
+            # clean up old PIDs listed in yaml_mtime
             foreach my $pid ( keys %{ $c->_event_state->{yaml_mtime} } ) {
                 if ( $c->_event_state->{yaml_mtime}->{$pid} < $mtime ) {
                     delete $c->_event_state->{yaml_mtime}->{$pid};