Scheduler, more tests, almost feature-complete, todo: YAML

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

package Catalyst::Plugin::PluginTest;

use strict;
use warnings;
use NEXT;

sub setup {
    my $c = shift;
    $c->NEXT::setup(@_);
    
    if ( $c->can('schedule') ) {
        $c->schedule(
            at    => '* * * * *',
            event => \&plugin_test,
        );
    }
}

sub plugin_test {
    my $c = shift;
    
    # write out a file so the test knows we did something
    my $fh = IO::File->new( $c->path_to( 'plugin_test.log' ), 'w' )
        or die "Unable to write log file: $!";
    close $fh;
}

1;