Image::Processor::Base - Perl extension for Woking with disk stores of images

Image-Processor documentation Contained in the Image-Processor distribution.

Index

Code Index:

NAME

Top

Image::Processor::Base - Perl extension for Woking with disk stores of images

SYNOPSIS

Top

  use Image::Processor::Base;
  Part of the Image::Processor module.  Most interaction is performed via Image::Processor
  so please refer to its documentation for more information.

DESCRIPTION

Top

Image::Processor::Base

EXPORT

None this is all OOP.

METHODS

    'new' - constructs the object. Assigns no attributes.

    'running_in' - returns or sets how the app is being run, either console or web

    'cdrom' - sets which device to use if working with CD's 

    'output_directory' - returns or sets the directory in which output will go.
                         this value is appended with the CD order id if applicable

    'source_directory' - sets were the data is to be retrieved from. this does not
                         have to be set if you use the cdrom setting. see examples

    'error' - this will print any message sent to it via the warn function

    'graceful_exit' - this will print any message sent to it and 'die', the
                      default messages sent to it usually include hints as to
                      what caused the exit. if you add to this utility please
                      use robust informative error messages.

AUTHOR

Top

Aaron Johnson <solution@gina.net>

SEE ALSO

Top

perl.

Image-Processor documentation Contained in the Image-Processor distribution. 
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__
# Below is stub documentation for your module. You better edit it!