/ 
Image-Magick-Thumbnail-Simple-0.12
River stage zero No dependents
1 ++
/ Image::Magick::Thumbnail::Simple

NAME

Image::Magick::Thumbnail::Simple - The thumbnail image is easily made without uselessness.

SYNOPSIS

It outputs it to the file.

  use Image::Magick::Thumbnail::Simple;
  my $t = new Image::Magick::Thumbnail::Simple;
  $t -> thumbnail(
    input  => 'input.jpg',
    output => 'output.jpg',
    size   => 128,
  ) or die $t -> error;

It outputs it to the STDOUT.

  use Image::Magick::Thumbnail::Simple;
  my $t = new Image::Magick::Thumbnail::Simple;
  binmode STDOUT;
  print "Content-type: image/jpeg\n\n";
  $t -> thumbnail(
    input  => 'input.jpg',
    output => 'jpg:-',
    size   => 128,
  ) or die $t -> error;

When specifying it when initializing it

It is succeeded to as long as it doesn't individually specify it at all the following.

  $t = new Image::Magick::Thumbnail::Simple(
    size    => 128,
    blur    => 0.8,
    quality => 80,
  );

When changing

It is effective for jpeg format. The value is between from 0 to 100.

  $t -> size( 128 );
  $t -> blur( 0.8 );
  $t -> quality( 80 );

When individually specifying it

The input and the output can be specified only for individual.

  $t -> thumbnail(
    input   => 'input,jpg',
    output  => 'output.jpg',
    size    => 128,
    blur    => 0.8,
    quality => 80,
  );

Width of thumbnail image

  $width = $t -> width;

Height of thumbnail image

  $height = $t -> height;

DESCRIPTION

The thumbnail image can be easily made by using Image::Magick. A basic setting is the same as Image::Magick. Only the processing of the resize of the image is treated. The version opened to the public is 0.10. In 0.12, it came to return a size that corrected of the explanation and was thumbnail.

SEE ALSO

Image::Magick

AUTHOR

Satoshi Ishikawa <cpan@penlabo.net>

COPYRIGHT AND LICENSE

Copyright (C) 2008 Satoshi Ishikawa

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.