add a lab directory

[gitmo/MooseX-Daemonize.git] / lab / dec.pl

diff --git a/lab/dec.pl b/lab/dec.pl
new file mode 100755 (executable)
index 0000000..0d143e2
--- /dev/null
+++ b/lab/dec.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl -l
+
+package TestDaemon;
+use Moose;
+with('MooseX::Daemonize');
+
+before 'daemonize' => sub {
+    warn 'forking ' . $$;
+};
+
+after 'start' => sub {
+    return unless $_[0]->is_daemon;
+    while (1) {
+        local *LOG;
+        open LOG, '>>', '/tmp/testdaemon.log';
+        print LOG "$0:$$";
+        close LOG;
+        sleep 1;
+    }
+};
+
+package main;
+my $td = new_with_options TestDaemon( pidbase => '/tmp' );
+use YAML;
+warn Dump $td->pidfile;
+warn $td->check;
+print "PARENT: $$";
+print 'PID: ' . $td->get_pid;
+print $td->start;