[Bps-public-commit] r16063 - in Prophet/branches/dispatcher: lib/Prophet

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 25 15:34:38 2008
New Revision: 16063

Modified:
   Prophet/branches/dispatcher/   (props changed)
   Prophet/branches/dispatcher/lib/Prophet/CLIContext.pm

Log:
 r72463 at onn:  sartak | 2008-09-25 15:23:34 -0400
 Fixes for stuff that was shuffled around


Modified: Prophet/branches/dispatcher/lib/Prophet/CLIContext.pm
==============================================================================
--- Prophet/branches/dispatcher/lib/Prophet/CLIContext.pm	(original)
+++ Prophet/branches/dispatcher/lib/Prophet/CLIContext.pm	Thu Sep 25 15:34:38 2008
@@ -1,6 +1,7 @@
 package Prophet::CLIContext;
 use Moose;
 use MooseX::ClassAttribute;
+use Params::Validate;
 
 has app_handle => (
     is      => 'rw',
@@ -286,8 +287,8 @@
     });
 
     my $constructor_args = {
-        app_handle => $self->cli->app_handle,
-        handle     => $self->cli->handle,
+        app_handle => $self->app_handle,
+        handle     => $self->handle,
         type       => $args{type},
     };
 
@@ -331,11 +332,11 @@
 sub _type_to_record_class {
     my $self = shift;
     my $type = shift;
-    my $try = $self->cli->app_class . "::Model::" . ucfirst( lc($type) );
+    my $try = $self->app_class . "::Model::" . ucfirst( lc($type) );
     Prophet::App->try_to_require($try);    # don't care about fails
     return $try if ( $try->isa('Prophet::Record') );
 
-    $try = $self->cli->app_class . "::Record";
+    $try = $self->app_class . "::Record";
     Prophet::App->try_to_require($try);    # don't care about fails
     return $try if ( $try->isa('Prophet::Record') );
     return 'Prophet::Record';