File Coverage

blib/lib/App/CmdDispatch/IO.pm

Criterion	Covered	Total	%
statement	13	28	46.4
branch			n/a
condition	2	3	66.6
subroutine	4	11	36.3
pod	4	4	100.0
total	23	46	50.0

package App::CmdDispatch::IO;

use warnings;
use strict;
use Term::ReadLine;

our $VERSION = '0.44';

my $term;
sub new
{
    my ($class) = @_;
    $term ||= Term::ReadLine->new('CmdDispatch Shell');
    $term->ornaments( 0 );
    return bless { term => $term }, $class;
}

sub print
{
    my $self = shift;
    return CORE::print @_;
}

sub readline
{
    my ($self) = @_;
    return $self->{term}->readline( '' );
}

sub prompt
{
    my ($self, @in) = @_;
    return $self->{term}->readline( @in );
}

{
    package App::CmdDispatch::MinimalIO;

    sub new
    {
        my ($class) = @_;
        return bless {}, $class;
    }

    sub print
    {
        my $self = shift;
        return CORE::print @_;
    }

    sub readline
    {
        my ($self) = @_;
        return CORE::readline;
    }

    sub prompt
    {
        my ($self, @in) = @_;
        $self->print( @in );
        return $self->readline();
    }
}
1;
__END__