File Coverage

blib/lib/Image/Processor/Store/File.pm

Criterion	Covered	Total	%
statement	12	35	34.2
branch	0	10	0.0
condition	0	2	0.0
subroutine	4	9	44.4
pod	0	5	0.0
total	16	61	26.2

package Image::Processor::Store::File;

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

use File::Path;
use File::Copy;

# handles all the File interaction

sub create_path {
    my ($self,$dir) = @_;
    print "Creating dir '$dir'\n\n" if (!-d $dir);
    my $print_dirs = 0;
    my $perms      = 0777;
    mkpath( "$dir", $print_dirs, $perms )
	or return "Can't create directory '$dir': $!";
}

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

sub get_image_list {
    my ($self,$set) = @_;
    chdir($self->source_directory());
    my $expression = $self->extension() || "jpg|gif";
    # get list of picture
    opendir(DIR, $self->source_directory());
    my @files;
    @files = grep { /\.($expression)$/i } readdir(DIR);

    closedir(DIR);
    $self->image_list(\@files);
    # $self->image_list([ <*.jpg> ]);

}

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

sub determine_source {
    my ($self) = @_;
    my $source_dir = $self->cdrom() . "/PICTURES" if $self->cdrom();


    $self->source_directory($source_dir);
}


1;

__END__