File Coverage

blib/lib/Image/Processor/Interface/Console.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	10	0.0
condition			n/a
subroutine	2	8	25.0
pod	0	6	0.0
total	8	59	13.5

package Image::Processor::Interface::Console;

use strict;
use base ( 'Image::Processor::Base' );

# handles all the Console interaction

sub prompt_for_directory_creation {
    my ($self,$set) = @_;
    return $self->{'prompt_for_directory_creation'} if !$set;
    $self->{'prompt_for_directory_creation'} = $set;
}

sub console_get_drive {
    my ($self) = @_;
    $self->running_in('console');
    print "Please indicate which drive your CD is in";
    $_=<>;
    chomp;

    $self->cdrom($_);
    $self->read_info_cd();
}

sub console_prompt {
    my ($self,$string) = @_;
    print "$string ";
    $_=<>;
    chomp;
    return $_;
}

sub prompt_for_output_directory {
    my ($self) = @_;
    $self->output_directory(
            $self->console_prompt("Output directory")
            );

    $self->process();
}

sub prompt_to_verify_directory_creation {
    my ($self) = @_;
    if (!-d $self->output_directory) {
        if ($self->prompt_for_directory_creation) {
            if ($self->console_prompt(
                  "Directory - " . $self->output_directory . "\ndoes not exist do you want me to create it?"
                  ) =~ /y/i)
            {
                $self->create_path($self->output_directory());
            } else {
                print "Nothing more for me to do then, bye!\n\n";
                die;

            }
        } else {
            $self->create_path($self->output_directory());
        }
    }
}

sub prompt_for_caption {
    my ($self,$set) = @_;
    return $self->{'prompt_for_caption'} if !$set;
    $self->{'prompt_for_caption'} = $set;
}

1;

__END__