Skip to content

Instantly share code, notes, and snippets.

@masartz
masartz / php_cron_test.php
Last active August 29, 2015 14:13
php_cron_test
<?php
/**
* Test_Crontab
*
*/
require 'vendor/autoload.php';
class Test_Batch_Crontab extends PHPUnit_Framework_TestCase
@masartz
masartz / pod_list
Last active December 17, 2015 04:39
view pod list
#!/usr/bin/env perl
use strict;
use warnings;
use Encode;
use Pod::Simple::PullParser;
use File::Slurp qw/ read_dir/;
use Text::Xslate;
use Plack::Response;
@masartz
masartz / gist:630120
Created October 16, 2010 18:27
YAPC::Asia2010 Qudo::Hook::ForceQuitJob demo script
#!/usr/bin/perl
use strict;
use warnings;
use Qudo;
my $qudo = Qudo->new(
driver_class => 'Skinny',
databases => [+{
dsn => 'dbi:mysql:qudo',
@masartz
masartz / gist:630119
Created October 16, 2010 18:24
YAPC::Asia Qudo::Plugin::Logger&Qudo::Hook::Notify demo script
#!/usr/bin/perl
use strict;
use warnings;
use Qudo;
my $qudo = Qudo->new(
driver_class => 'Skinny',
databases => [+{
dsn => 'dbi:mysql:qudo',
#!/usr/bin/perl
use strict;
use warnings;
use Qudo;
my $qudo = Qudo->new(
driver_class => 'Skinny',
databases => [+{
dsn => 'dbi:mysql:qudo',
package MyApp::Worker::Santa;
use strict;
use warnings;
use base qw/Qudo::Worker/;
sub work {
my ($self , $job ) = @_;
$job->manager->plugin->{pre_message}->();
#!/usr/bin/perl
use strict;
use warnings;
use Qudo;
use MyApp::Worker::Santa;
my $qudo = Qudo->new(
driver_class => 'Skinny',
databases => [+{
#!/usr/bin/perl
use strict;
use warnings;
use lib './lib';
package MyApp::Worker::Test;
use base qw/Qudo::Worker/;
use Data::Dumper;
#!/usr/bin/perl
use strict;
use warnings;
my $str = 'gist-test';
print $str."\n";
exit;