File Coverage

blib/lib/Term/Choose_HAE.pm

Criterion	Covered	Total	%
statement	34	45	75.5
branch	7	18	38.8
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	52	75	69.3

package Term::Choose_HAE;

use warnings;
use strict;
use 5.010001;

our $VERSION = '0.058';
use Exporter 'import';
our @EXPORT_OK = qw( choose );

use Carp qw( croak );

use if $^O eq 'MSWin32', 'Win32::Console::ANSI';

use parent 'Term::Choose';


my $Plugin;

BEGIN {
    if ( $^O eq 'MSWin32' ) {
        require Term::Choose::Win32;
        $Plugin = 'Term::Choose::Win32';
    }
    else {
        require Term::Choose::Linux;
        $Plugin = 'Term::Choose::Linux';
    }
}


sub new {
    # the function 'choose' uses its own implicit new
    my $class = shift;
    my ( $opt ) = @_;
    croak "new: called with " . @_ . " arguments - 0 or 1 arguments expected" if @_ > 1;
    my $self = bless {}, $class;
    if ( defined $opt ) {
        croak "new: the (optional) argument must be a HASH reference" if ref $opt ne 'HASH';
        $self->__validate_and_add_options( $opt );
    }
    if ( $opt->{fill_up} ) {
        $opt->{color} = 1 + delete $opt->{fill_up};
    }
    $self->{backup_opt} = { defined $opt ? %$opt : () };
    $self->{plugin} = $Plugin->new();
    return $self;
}


sub choose {
    if ( ref $_[0] ne 'Term::Choose_HAE' ) {
        if ( $_[1]->{fill_up} ) {
            $_[1]->{color} = 1 + delete $_[1]->{fill_up};
        }
        return Term::Choose_HAE->new()->Term::Choose::__choose( @_ );
    }
    my $self = shift;
    if ( $_[1]->{fill_up} ) {
        $_[1]->{color} = 1 + delete $_[1]->{fill_up};
    }
    return $self->Term::Choose::__choose( @_ );
}



1;


__END__