[Bps-public-commit] r14862 - in sd/branches/dispatcher: . lib/App/SD

[sartak at bestpractical.com]

Author: sartak
Date: Wed Aug  6 14:05:42 2008
New Revision: 14862

Added:
   sd/branches/dispatcher/lib/App/SD/CLI.pm
Modified:
   sd/branches/dispatcher/   (props changed)
   sd/branches/dispatcher/bin/sd

Log:
 r68890 at onn:  sartak | 2008-08-06 14:04:01 -0400
 Add App::SD::CLI as a subclass of Prophet::CLI


Modified: sd/branches/dispatcher/bin/sd
==============================================================================
--- sd/branches/dispatcher/bin/sd	(original)
+++ sd/branches/dispatcher/bin/sd	Wed Aug  6 14:05:42 2008
@@ -1,8 +1,7 @@
 #!/usr/bin/env perl 
 use warnings;
 use strict;
-use Prophet::CLI;
-use App::SD;
+use App::SD::CLI;
 
 $ENV{'PROPHET_REPO'} = $ENV{'SD_REPO'} || $ENV{'HOME'}.'/.sd';
 
@@ -19,6 +18,6 @@
     };
 }
 
-my $cli = Prophet::CLI->new({ app_class => 'App::SD' });
+my $cli = App::SD::CLI->new;
 $cli->run_one_command;
 

Added: sd/branches/dispatcher/lib/App/SD/CLI.pm
==============================================================================
--- (empty file)
+++ sd/branches/dispatcher/lib/App/SD/CLI.pm	Wed Aug  6 14:05:42 2008
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+package App::SD::CLI;
+use Moose;
+extends 'Prophet::CLI';
+
+use App::SD;
+
+has '+app_class' => (
+    default => 'App::SD',
+);
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
+1;
+