[Bps-public-commit] r12519 - in Prophet/branches/moose: .

[sartak at bestpractical.com]

Author: sartak
Date: Sun May 18 11:19:34 2008
New Revision: 12519

Modified:
   Prophet/branches/moose/   (props changed)
   Prophet/branches/moose/lib/Prophet/CLI.pm

Log:
 r56316 at onn:  sartak | 2008-05-18 11:19:30 -0400
 Turn args into a Moose attribute


Modified: Prophet/branches/moose/lib/Prophet/CLI.pm
==============================================================================
--- Prophet/branches/moose/lib/Prophet/CLI.pm	(original)
+++ Prophet/branches/moose/lib/Prophet/CLI.pm	Sun May 18 11:19:34 2008
@@ -39,6 +39,15 @@
     isa => 'ArrayRef'
     );
 
+has args => (
+    metaclass => 'Collection::Hash',
+    is        => 'rw',
+    isa       => 'HashRef',
+    default   => sub { {} },
+    provides  => {
+    },
+);
+
 use Prophet;
 use Prophet::Record;
 use Prophet::Collection;
@@ -181,12 +190,6 @@
 
 =cut
 
-sub args {
-    my $self = shift;
-    $self->{'args'} = shift if $_[0];
-    return $self->{'args'};
-}
-
 sub run_one_command {
     my $self = shift;
     $self->parse_args();