sample

kazeburo · Jun 14, 2012 · 5c6b362 · 5c6b362
1 parent ff9f994
commit 5c6b362
Showing 1 changed file with 32 additions and 0 deletions.
diff --git a/sample.pl b/sample.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use lib qw/lib/;
+use Proclet;
+
+my $proclet = Proclet->new;
+$proclet->service(
+    code => sub {
+        local $0 = "$0 (sleep 5)";
+        warn $0;
+        sleep 5;
+    },
+    worker => 2
+);
+$proclet->service(
+    code => sub {
+        local $0 = "$0 (sleep 2)";
+        warn $0;
+        sleep 2;
+    },
+    worker => 3
+);
+$proclet->service(
+    code => sub {
+        exec('/usr/bin/memcached');
+    },
+);
+
+$proclet->run;
+