[Bps-public-commit] r16441 - in sd/branches/sd-dispatcher: .

sartak at bestpractical.com sartak at bestpractical.com
Tue Oct 21 14:01:14 EDT 2008


Author: sartak
Date: Tue Oct 21 14:01:13 2008
New Revision: 16441

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

Log:
 r74287 at onn:  sartak | 2008-10-21 13:16:49 -0400
 Have SD's dispatcher use Moose


Modified: sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm
==============================================================================
--- sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	(original)
+++ sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	Tue Oct 21 14:01:13 2008
@@ -1,9 +1,7 @@
 #!/usr/bin/env perl
 package App::SD::CLI::Dispatcher;
-use strict;
-use warnings;
 use Prophet::CLI::Dispatcher -base;
-
+use Moose;
 
 on qr'^\?(.*)$' => sub {my $cmd = $1 || '';  run ('help'. $cmd,  @_); last_rule;};
 
@@ -68,5 +66,8 @@
     ),
 );
 
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
 1;
 



More information about the Bps-public-commit mailing list