Changeset 14214 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 18:02:28 (5 months ago)

Author:

tokuhirom

Message:

use MooseX::Daemonize.

Location:

lang/perl/App-Nakanobu/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/App/Nakanobu.pm (modified) (2 diffs)
• nakanobu.pl (modified) (1 diff)

lang/perl/App-Nakanobu/trunk/Makefile.PL

@@ -5 +5 @@
 requires 'JSON::RPC::Common'   => 0.03;
 requires 'Moose'               => 0.50;
+requires 'MooseX::Daemonize'   => 0.05;
 requires 'MooseX::Plaggerize'  => 0.04;
 requires 'POE'                 => 1.0002;

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu.pm

@@ -3 +3 @@
 use 5.00800;
 our $VERSION = '0.01';
-with 'MooseX::Plaggerize';
+with 'MooseX::Plaggerize', 'MooseX::Daemonize';
 use POE;
+use YAML;
+use File::Spec;
+use FindBin;
+use MooseX::Types::Path::Class;
+
+has conffile => (
+    cmd_aliases => 'c',
+    metaclass   => 'Getopt',
+    is          => 'ro',
+    isa         => 'Path::Class::File',
+    default     => sub {
+        Path::Class::File->new( $FindBin::Bin, 'config.yaml' );
+    },
+);
 
 has config => (
-    is => 'ro',
-    isa => 'HashRef',
+    is      => 'rw',
+    isa     => 'HashRef',
+    lazy    => 1,
+    default => sub {
+        my $self = shift;
+        YAML::LoadFile( $self->conffile )
+    },
 );
 
@@ -14 +33 @@
 sub context { $context }
 
-sub run {
+after 'start' => sub {
     my ($self, ) = @_;
+    return unless $self->is_daemon;
+
+    $self->config; # evaluate lazy attribute
+    $self->_load_plugins();
     $context = $self;
-    $self->_load_plugins();
     $self->run_hook('run_component');
     $SIG{INT} = sub { POE::Kernel->stop };
     POE::Kernel->run();
-}
+};
 
 sub _load_plugins {

lang/perl/App-Nakanobu/trunk/nakanobu.pl

@@ -6 +6 @@
 use lib catfile($FindBin::Bin, 'lib');
 use App::Nakanobu;
-use YAML;
 
-my $conf = YAML::LoadFile(catfile($FindBin::Bin, 'config.yaml'));
-my $nakanobu = App::Nakanobu->new(config => $conf);
-$nakanobu->run();
+my $daemon = App::Nakanobu->new_with_options();
 
+my ($command) = @{$daemon->extra_argv};
+defined $command || die "No command specified";
+
+$daemon->start   if $command eq 'start';
+$daemon->status  if $command eq 'status';
+$daemon->restart if $command eq 'restart';
+$daemon->stop    if $command eq 'stop';
+
+warn($daemon->status_message);
+exit($daemon->exit_code);
+