[iperl commit] r145 - trunk/lib/Shell

[codesite...@google.com]

Author: a.r.fe...@gmail.com
Date: Mon Mar 3 09:59:10 2008
New Revision: 145

Modified:
trunk/lib/Shell/Perl.pm

Log:
prepare the terrain for more customization

Modified: trunk/lib/Shell/Perl.pm
==============================================================================
--- trunk/lib/Shell/Perl.pm (original)
+++ trunk/lib/Shell/Perl.pm Mon Mar 3 09:59:10 2008
@@ -8,7 +8,7 @@
# /Id: Perl.pm 1131 2007-01-27 17:43:35Z me / # don't erase that for now
# $Id$

-our $VERSION = '0.0015';
+our $VERSION = '0.0016'; # XXX

use base qw(Class::Accessor); # soon use base qw(Shell::Base);
Shell::Perl->mk_accessors(qw( out_type dumper context package term
ornaments )); # XXX use_strict
@@ -227,10 +227,16 @@
return $self->term->readline($self->prompt_title);
}

+sub _new_term {
+ my $self = shift;
+ my $name = shift;
+ return Term::ReadLine->new( $name );
+}
+
sub run {
my $self = shift;
my $shell_name = _shell_name;
- $self->term( my $term = Term::ReadLine->new($shell_name) );
+ $self->term( my $term = $self->_new_term( $shell_name ) );
$term->ornaments($self->ornaments); # XXX
my $prompt = "$shell_name > ";