File Coverage

blib/lib/Image/Processor/Base.pm

Criterion	Covered	Total	%
statement	3	27	11.1
branch	0	8	0.0
condition			n/a
subroutine	1	9	11.1
pod	0	8	0.0
total	4	52	7.6

package Image::Processor::Base;

use strict;

sub new {
    my ($class) = shift;
    my $self = {};
    bless $self , $class;
    return $self;
}

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

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

sub trim_path {
    my ($self,$path) = @_;
    $path =~ s![/\\]$!!;
    return $path;
}

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

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

sub error {
    my ($self,$message) = @_;
    warn $message;

}

sub graceful_exit {
    my ($self,$message) = @_;
    die "Immage::Processor could not complete because: $message\n";
}
1;

__END__