NAME

Image::Select - Perl class for creating random image.

SYNOPSIS

use Image::Select;
my $obj = Image::Select->new(%parameters);
my $type = $obj->create($output_path);
my ($width, $height) = $obj->sizes($new_width, $new_height);
my $type = $obj->type($new_type);

METHODS

new(%parameters)

Constructor.

• debug

  Debug mode.
  Default value is 0.

• height

  Height of image.
  Default value is 1920.

• loop

  Returns images in loop.
  Default value is 0.

• path_to_images

  Path to images.
  Default value is undef.

• type

  Image type.
  List of supported types: bmp, gif, jpeg, png, pnm, raw, sgi, tga, tiff
  Default value is undef.

• width

  Width of image.
  Default value is 1080.

create($path)

Create image.
Returns scalar value of supported file type.

sizes([$width, $height])

Set/Get image sizes.
Returns actual width and height.

type([$type])

Set/Get image type.
Returns actual type of image.

ERRORS

new():
        No images.
        Suffix '%s' doesn't supported.
        Class::Utils:
                Unknown parameter '%s'.

create():
        Cannot read file '%s'.
                Error, %s
        Cannot resize image from file '%s'.
                Error, %s
        Cannot write file to '$path'.
                Error, %s
        No file '%s'.
        Suffix '%s' doesn't supported.

EXAMPLE1

# Pragmas.
use strict;
use warnings;

# Modules.
use File::Spec::Functions qw(catfile);
use File::Temp qw(tempfile tempdir);
use Image::Select;
use Image::Random;

# Temporary directory to random images.
my $tempdir = tempdir(CLEANUP => 1);

# Create temporary images.
my $rand = Image::Random->new;
for my $i (1 .. 5) {
        $rand->create(catfile($tempdir, $i.'.png'));
}

# Object.
my $obj = Image::Select->new(
        'path_to_images' => $tempdir,
);

# Temporary file.
my (undef, $temp) = tempfile();

# Create image.
my $type = $obj->create($temp);

# Print out type.
print $type."\n";

# Unlink file.
unlink $temp;

# Output:
# bmp

EXAMPLE2

# Pragmas.
use strict;
use warnings;

# Modules.
use File::Spec::Functions qw(catfile);
use File::Temp qw(tempfile tempdir);
use Image::Select;
use Image::Random;

# Temporary directory for random images.
my $tempdir = tempdir(CLEANUP => 1);

# Create temporary images.
my $rand = Image::Random->new;
for my $i (1 .. 5) {
        $rand->create(catfile($tempdir, $i.'.png'));
}

# Object.
my $obj = Image::Select->new(
        'loop' => 0,
        'path_to_images' => $tempdir,
);

# Temporary file.
my (undef, $temp) = tempfile();

# Create image.
while (my $type = $obj->create($temp)) {

        # Print out type.
        print $type."\n";
}

# Unlink file.
unlink $temp;

# Output:
# bmp
# bmp
# bmp
# bmp
# bmp

DEPENDENCIES

Class::Utils, Error::Pure, File::Basename, File::Find::Rule, File::Find::Rule::MMagic, Imager, List::MoreUtils.

SEE ALSO

Image::Random.

AUTHOR

Michal Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

BSD license.

VERSION

0.01