File Coverage

blib/lib/Image/Processor.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Image::Processor;
use strict;

use base ( 'Image::Processor::Base',
           'Image::Processor::CD',
           'Image::Processor::Interface::Console',
           'Image::Processor::Store::File',
           'Image::Processor::Mail::GetImages',
           'Image::Processor::Create::HTML'
           #'Image::Processor::Interface::Web',
         );

use vars ('$VERSION');

use Image::Magick;

$VERSION = '0.6';

sub process {
    my ($self) = @_;
    if ($self->{'orderid'} eq '' && $self->cdrom ne '') {
        $self->read_info_cd();
    }

    $self->determine_source();

    # exit conditions
    # - no output_directory
    $self->graceful_exit(
        "You have not set the 'output_directory'")
            if !$self->output_directory();

    # - no source_directory
        $self->graceful_exit(
        "You have not set the 'source_directory'")
            if !$self->source_directory();

    $self->get_image_list();

    # - no list of images
        $self->graceful_exit(
        qq~
    I have no list of images,
    double check the 'source_directory' or 'drive'.
    I had ~ . $self->cdrom . qq~ as a possible location~)
            if !$self->image_list();

    # - no modify_array
        $self->graceful_exit(
            qq~
    You didn't specify how I should process the images, I need
    an array ref that looks something like this:
        [
         { suffix => 'thumb_', percent => '15' },
         { suffix => 'med_', percent => '50' },
        ]
    pass as an argument into the 'modify_array' method~ )
            if !$self->modify_array() || ref($self->modify_array()) ne 'ARRAY';



    my $dir = $self->output_directory;
    $dir .= "/CD_" . $self->{'orderid'} if $self->cdrom;
    $self->output_directory($dir);
    print "Working on output for " , $self->output_directory() , "\n";
    # create a directory for storage
    $self->prompt_to_verify_directory_creation($dir);

    # change to chdir for saving information
    chdir($self->output_directory);


    $self->create_path($dir);
    #foreach (@{ $self->image_list() }) {
    #    print "Copying $_\n";
    #    copy("$_","$dir/$_");
    #}
    #$self->create_index_html();
    #$self->create_all_full_size();
    #$self->create_all_medium_images();
    #$self->create_all_thumbnail();
    $self->make_various_sizes( $self->modify_array() );

    print "A total of " . @{$self->image_list()} . " images were processed\n";
}

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

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

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

sub resize_image {

    my ($self,$file) = @_;

    my($image, $x);
    print "Creating image " . $self->percent . "% the size of $file\n";
    $image = Image::Magick->new;
    $x = $image->Read($self->source_directory . "/$file");
    warn "$x" if "$x";
    $x = $image->Resize('geometry' => $self->percent ."%" );
    warn "$x" if "$x";
    my $suffix = $self->suffix();
    $file =~ s/(\.\w\w\w)/$suffix$1/;
    $x = $image->Write($self->output_directory . "/" . "$file");

    warn $x if $x;

}

sub make_various_sizes {
    my ($self,$size_list) = @_;
=pod
    # size list example
    $size_list = [
        { suffix => 'small_', percent => '15' },
        { suffix => 'medium_', percent => '50' },
    ];
=cut
    foreach my $size (@{$size_list}) {
        $self->suffix( $size->{'suffix'} );
        $self->percent( $size->{'percent'} );
        $self->resize_images();
    }
}

sub resize_images {
    my ($self) = @_;
    foreach my $file (@{ $self->image_list() }) {
        $self->resize_image($file);
    }

}

sub suffix {
    my ($self,$set) = @_;
    return $self->{'suffix'} if !$set;
    if ($set =~ /none/i) { $self->{'suffix'} = ''; return }
    $self->{'suffix'} = $set;
}


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

    $self->{'percent'} = $set;
}

1;

__END__