view release on metacpan or  search on metacpan

lib/CAD/Drawing/IO/Image.pm  view on Meta::CPAN

use strict;

use Carp;
use UNIVERSAL qw(isa);

use Image::Magick;

########################################################################
=pod

=head1 NAME

lib/CAD/Drawing/IO/Image.pm  view on Meta::CPAN

author with any such development plans.

=head1 SEE ALSO

  CAD::Drawing
  Image::Magick

=cut

########################################################################

lib/CAD/Drawing/IO/Image.pm  view on Meta::CPAN

	}
	my $imwidth = $opts{width};
	my $imheight = $opts{height};
	(defined($imwidth) and defined($imheight)) or
		carp("can't save image without width and height\n");
	my $outobj = Image::Magick->new(size=>"${imwidth}x${imheight}");
	my $bgcolor = "white";
	my $defaultcolor = "black";
	if($opts{defaultcolor}) {
		$defaultcolor = $opts{defaultcolor};
	}

 view release on metacpan or  search on metacpan

lib/CAD/Drawing/IO.pm  view on Meta::CPAN

Postscript output.

=item L<CAD::Drawing::IO::Image|CAD::Drawing::IO::Image>

Image::Magick based output.

=item L<CAD::Drawing::IO::PgDB|CAD::Drawing::IO::PgDB>

PostgreSQL connected drawing database.

 view release on metacpan or  search on metacpan

lib/CGI/Application/PhotoGallery.pm  view on Meta::CPAN

=head1 DESCRIPTION

CGI::Application::PhotoGallery is a L<CGI::Application> module allowing people
to create their own simple photo gallery. There is no need to generate your
own thumbnails since they are created on the fly (using either the GD or
Image::Magick modules).

To use this module you need to create an instance script.  It
should look like:

    #!/usr/bin/perl

lib/CGI/Application/PhotoGallery.pm  view on Meta::CPAN

can change it by specifying your own value in the instance script.

=head2 graphics_lib

You can specifify which graphics library you wish to use to size your
thumbnails. Included in this package are C<Magick> (Image::Magick) and
the default: C<GD>. You can also create your own if you wish.

=head2 index_template

This application uses L<HTML::Template> to generate its HTML pages.  If

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Thumbnail.pod  view on Meta::CPAN

   ?rm=thumbnail&rel_path=img/one.jpg&thumbnail_restriction=600x600
   DOCUMENT_ROOT/.thumbnails/600x600/img/one.jpg

=head1 CHANGES

Since version 1.03, instead of using Image::Magick::Thumbnail, we use Image::Thumbnail.
You must have GD, Image::Magick, or Imager installed.
Requested by Lyle.

For more changes, see the 'Changes' file included in this distribution.

=head1 REVISION

 view release on metacpan or  search on metacpan

lib/CGI/Uploader/Transform/ImageMagick.pm  view on Meta::CPAN

C<gen_thumb> can be called as object or class method. As a class method,
there there is no need to call C<new()> before calling this method.

L<Graphics::Magick> is used as the first choice image service module.
L<Image::Magick> is tried next.

Input:

    filename - filename of source image
    w        - max width of thumbnail

lib/CGI/Uploader/Transform/ImageMagick.pm  view on Meta::CPAN

                h => { type => SCALAR | UNDEF, regex => qr/^\d*$/, optional => 1 },
            });
    }
    die "must supply 'w' or 'h'" unless (defined $p{w} or defined $p{h});

    # Having both Graphics::Magick and Image::Magick loaded at the same time
    # can cause very strange problems, so we take care to avoid that
    # First see if we have already loaded Graphics::Magick or Image::Magick
    # If so, just use whichever one is already loaded.
    my $magick_module;
    if (exists $INC{'Graphics/Magick.pm'}) {
        $magick_module = 'Graphics::Magick';
    }
    elsif (exists $INC{'Image/Magick.pm'}) {
        $magick_module = 'Image::Magick';
    }

    # If neither are already loaded, try loading either one.
    elsif ( _load_magick_module('Graphics::Magick') ) {
        $magick_module = 'Graphics::Magick';
    }
    elsif ( _load_magick_module('Image::Magick') ) {
        $magick_module = 'Image::Magick';
    }
    else {
        die "No graphics module found for image resizing. Install Graphics::Magick or Image::Magick: $@ "
    }

    my ($thumb_tmp_fh, $thumb_tmp_filename) = tempfile('CGIuploaderXXXXX', UNLINK => 1, DIR => $self->{'temp_dir'});
    binmode($thumb_tmp_fh);

lib/CGI/Uploader/Transform/ImageMagick.pm  view on Meta::CPAN

}




# load Graphics::Magick or Image::Magick if one is not already loaded.
sub _load_magick_module {
    my $module_name = shift;
    return eval "require $module_name";
}

 view release on metacpan or  search on metacpan

t/release-dependent.t  view on Meta::CPAN

));

#Mojolicious::Plugin::Cache # broken
#Text::Corpus::CNN # broken
#Text::Corpus::VoiceOfAmerica # broken
#Geo::Heatmap # Image::Magick
#CHI::Driver::Ping # no useful tests, also insane
#CHI::Driver::MemcachedFast # tests broken
#CHI::Driver::HandlerSocket # missing dep Net::HandlerSocket
#App::ListPrereqs # no useful tests
#Poet # broken dep

 view release on metacpan or  search on metacpan

doc/html2ps  view on Meta::CPAN

chdir $cwd;
$user=2;
&getconf($opt_S) if($opt_S);
print DBG "*****\n" if($opt_d);

require Image::Magick if($package{'PerlMagick'});
$geturl=$package{'geturl'};
$ulanch="f";
$f=72/2.54;
$giftopm="giftopnm" if($package{'netpbm'});
$giftopm="giftoppm" if($package{'pbmplus'});

doc/html2ps  view on Meta::CPAN

    $ps.="restore";
  } elsif($type=~/.xbm$/i || $pic=~/^#define/) {
    &xbmtops;
  } elsif($package{'ImageMagick'}) {
    if($package{'PerlMagick'}) {
      $imobj=Image::Magick->new;
      $mess=$imobj->Read($scr);
      if($mess) {
        &dbg("$mess\n");
      } else {
        $mess=$imobj->Write("$scr\.$pg1");

 view release on metacpan or  search on metacpan

t/data-fixable/284247103-META.yml  view on Meta::CPAN

        requires:
            Text::VimColor: 0.09
    - picture-article:
        description: Publish pictures as articles, with automatic thumbnails
        requires:
            Image::Magick: 0
    - related-links:
        description: Add a Related Links box to pages for articles
        requires:
            Template::Plugin::Class: 0

 view release on metacpan or  search on metacpan

lib/CPAN/Plugin/Sysdeps/Mapping.pm  view on Meta::CPAN

       [package => 'librsvg2-devel']],
      [os_darwin,
       [package => 'librsvg']],
     ],

     [cpanmod => 'Image::Magick',  # typically needs manual work
      ## XXX needs to be either ImageMagick6 or ImageMagick7 nowadays, but does not install without manual work anyway
      #[os_freebsd,
      # [package => 'ImageMagick']],
      [like_debian,
       [package => 'libmagickcore-dev']]],

 view release on metacpan or  search on metacpan

bin/cpan2dist  view on Meta::CPAN

    ^Berk.*DB           # DB packages require specific options & linking
    ^DBD::              # DBD drivers require database files/headers
    ^XML::              # XML modules usually require expat libraries
    Apache              # These usually require apache libraries
    SSL                 # These usually require SSL certificates & libs
    Image::Magick       # Needs ImageMagick C libraries
    Mail::ClamAV        # Needs ClamAV C Libraries
    ^Verilog            # Needs Verilog C Libraries
    ^Authen::PAM$       # Needs PAM C libraries & Headers

=cut

 view release on metacpan or  search on metacpan

lib/CSS/SpriteBuilder.pm  view on Meta::CPAN

    $build->write_css('sprite.css');

=head1 DESCRIPTION

This module generate CSS sprites with one of these modules: Image::Magick or GD.

It has many useful settings and can be used for sites with complex structure.

=head1 METHODS

 view release on metacpan or  search on metacpan

lib/CSS/SpriteMaker.pm  view on Meta::CPAN

use strict;
use warnings;

use File::Find;
use Image::Magick;
use List::Util qw(max);

use Module::Pluggable 
    search_path => ['CSS::SpriteMaker::Layout'],
    except => qr/CSS::SpriteMaker::Layout::Utils::.*/,

lib/CSS/SpriteMaker.pm  view on Meta::CPAN

        },
        rc_filename_to_classname => $opts{rc_filename_to_classname},
        rc_override_classname => $opts{rc_override_classname},

        # the maximum color value
        color_max => 2 ** Image::Magick->QuantumDepth - 1,
    };

    return bless $self, $class;
}

lib/CSS/SpriteMaker.pm  view on Meta::CPAN

    $self->_verbose(sprintf("Target image size: %s, %s",
        $Layout->width(),
        $Layout->height())
    );

    my $Target = Image::Magick->new();

    $Target->Set(size => sprintf("%sx%s",
        $Layout->width(),
        $Layout->height()
    ));

lib/CSS/SpriteMaker.pm  view on Meta::CPAN

            $rh_source_info->{width},
            $rh_source_info->{height},
            $layout_y,
            $layout_x
        ));
        my $I = Image::Magick->new(); 
        my $err = $I->Read($rh_source_info->{pathname});
        if ($err) {
            warn $err;
            next ITEM_ID;
        }

lib/CSS/SpriteMaker.pm  view on Meta::CPAN

    my $image_path = shift;
    my $remove_source_padding = shift;
    my $add_extra_padding = shift;
    my $enable_colormap = shift;

    my $Image = Image::Magick->new();

    my $err = $Image->Read($image_path);
    if ($err) {
        warn $err;
        return {};

 view release on metacpan or  search on metacpan

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

package Catalyst::Plugin::Upload::Image::Magick;

use strict;
use warnings;

use Catalyst::Request::Upload;
use Catalyst::Exception;

use Image::Magick;

=head1 NAME

Catalyst::Plugin::Upload::Image::Magick - Image information plugin for Catalyst::Request::Upload

=head1 VERSION

Version 0.03

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

=head1 SYNOPSIS

In your L<Catalyst> project, 

  use Catalyst qw/Upload::Image::Magick/;

And you can execute method around image information in L<Catalyst::Request::Image> object;

  sub uploaded_action: Local {
    my ($self, $c) = shift;

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

    sub image {
        my $self = shift;

        unless ( $self->{_image} ) {
            my $image = Image::Magick->new;

            return undef if ( !$self->type || [ split( '/', $self->type ) ]->[0] ne 'image' );
            my $result = $image->Read( file => $self->fh );
            Catalyst::Exception->throw($result) if ($result);

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

=head1 METHODS

=head2 image()

If uploaded file is image, then return L<Image::Magick> object, 
is't image then throw L<Catalyst::Exception>.

=head2 is_image()

If uploaded file is image, then return 1, else 0.

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

=item L<Catalyst>

=item L<Catalyst::Request::Upload>

=item L<Image::Magick>

=back

=head1 BUGS

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Catalyst::Plugin::Upload::Image::Magick

You can also look for information at:

=over 4

lib/Catalyst/Plugin/Upload/Image/Magick.pm  view on Meta::CPAN

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;    # End of Catalyst::Plugin::Upload::Image::Magick

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "Catalyst::Plugin::Session::Store::FastMmap" : "<= 0.09",
      "Catalyst::Plugin::Session::Store::File" : "<= 0.16",
      "Catalyst::Plugin::SmartURI" : "<= 0.032",
      "Catalyst::Plugin::SubRequest" : "<= 0.14",
      "Catalyst::Plugin::Unicode::Encoding" : "<= 0.2",
      "Catalyst::Plugin::Upload::Image::Magick" : "<= 0.03",
      "Catalyst::View::Mason" : "<= 0.17",
      "CatalystX::CRUD" : "<= 0.42",
      "CatalystX::CRUD::Model::RDBO" : "<= 0.20",
      "CatalystX::Imports" : "<= 0.03",
      "Reaction" : "<= 0.001999",

 view release on metacpan or  search on metacpan

lib/Chart/PNGgraph.pm  view on Meta::CPAN

documentation for all the functionality can be found in L<GD::Graph>.

This module should work with all versions of GD, but it has only been
tested with version 1.19 and above. Version 1.19 is the last version
that produces GIF output, and requires a conversion step. The default
distribution of Chart::PNGgraph uses Image::Magick for this. If you'd
like to use something else, please replace the sub png2gif in
Chart::PNGgraph::Convert with something more to your liking.

=head1 NOTES

 view release on metacpan or  search on metacpan

slides/classloader_wiki.txt  view on Meta::CPAN

use Sbit::Web::Html::Table;
use Sbit::Web::Html::Widget;
use Sbit::Dbms::Database;
use Sbit::Dbms::Table;
use Sbit::Image::Gd;
use Sbit::Image::Magick;
use Sbit::Plot::Diagram;
use Sbit::Plot::Diagram::Colorbar;
use Sbit::Io::Import;
use Sbit::Io::Export;
use Sbit::Exception;

 view release on metacpan or  search on metacpan

lib/Daizu/Gen.pm  view on Meta::CPAN

=item $gen-E<gt>scaled_image($file, $urls)

A standard generator method which generates a scaled version of an image
file.  C<$file> must represent an image in a format which can be understood
by L<Image::Magick>, unless the GUID ID value is included in the argument,
in which case there must be a file with that GUID ID in the working copy which
is of an appropriate type.

The argument should consist of two or three numbers: the desired width and
height of the resulting image, and optionally the GUID ID of the image file

lib/Daizu/Gen.pm  view on Meta::CPAN

                unless defined $img_file_id;
            $img_file = Daizu::File->new($self->{cms}, $img_file_id);
        }
        my $data = $img_file->data;

        require Image::Magick;
        my $img = Image::Magick->new;
        $img->BlobToImage($$data);

        # Discard all but the first frame, in case it's an animated GIF,
        # otherwise we'll end up with multiple output files.
        $#$img = 0;

 view release on metacpan or  search on metacpan

lib/Data/FormValidator/Filters/Image.pm  view on Meta::CPAN

package Data::FormValidator::Filters::Image;

use strict;

use File::Basename;
use Image::Magick;
use IO::File;
use MIME::Types;

=pod

lib/Data/FormValidator/Filters/Image.pm  view on Meta::CPAN

    my ($result, $image);
    eval {
        # turn the Fh from CGI.pm back into a regular Perl filehandle, then
        # let ImageMagick read the image from _that_ fh.
        my $fh_copy = IO::File->new_from_fd(fileno($fh), 'r');
        $image = Image::Magick->new;
        $result = $image->Read( file => $fh_copy );
    };
    if ($@) {
        #warn "Uploaded file was not an image:  $@";
        seek( $fh, 0, 0 );
        return $fh;
    }
    if ("$result") { # quotes are there as per the Image::Magick examples
        #warn "$result";
        seek( $fh, 0, 0 );
        return $fh;
    }

lib/Data/FormValidator/Filters/Image.pm  view on Meta::CPAN

        seek( $fh, 0, 0 );
        return $fh;
    }

    $result = $image->Resize( width => $nw, height => $nh, @the_rest );
    if ("$result") { # quotes are there as per the Image::Magick examples
        #warn "$result";
        seek( $fh, 0, 0 );
        return $fh;
    }

lib/Data/FormValidator/Filters/Image.pm  view on Meta::CPAN

      if $CGI::needs_binmode
      && defined fileno($newfh);
    #########################

    $image->Write( file => $newfh, filename => $filename );
    if ("$result") { # quotes are there as per the Image::Magick examples
        #warn "$result";
        seek( $fh, 0, 0 );
        return $fh;
    }

 view release on metacpan or  search on metacpan

lib/Data/URIID/Barcode.pm  view on Meta::CPAN

        @res = map {{barcode => $_, quality => 0.001}}
               map {$pkg->new(%pass_opts, ref($_) ? (from => $_) : (data => sprintf($template // '%s', $_)))}
               @{$values};
               $done = 1;
    } elsif (!defined($from) && defined($filename)) {
        require Image::Magick;
        $from = Image::Magick->new();
        $from->Read($filename) && croak 'Cannot read file';
    }

    croak 'Stray options passed' if scalar keys %opts;

    unless ($done) {
        croak 'No from given' unless defined $from;

        if ($from->isa('Image::Magick')) {
            require Barcode::ZBar;

            my $raw = $from->ImageToBlob(magick => 'GRAY', depth => 8);
            my ($col, $rows) = $from->Get(qw(columns rows));
            my $scanner = Barcode::ZBar::ImageScanner->new();

 view release on metacpan or  search on metacpan

examples/drawimg.pl  view on Meta::CPAN

# Not a very clever or efficient way of doing it, but it works!
#

use strict;
use warnings;
use Image::Magick;
use Device::MatrixOrbital::GLK;


# Check for filename paramter
my ($filename) = @ARGV;

examples/drawimg.pl  view on Meta::CPAN

$lcd->clear_screen();



# Load the image file
my $image = new Image::Magick();
print "Reading from file: $filename\n";
$image->Read( $filename );
print "Image size: ".$image->Get('columns')."x".$image->Get('rows')."\n";

# Crop the image

 view release on metacpan or  search on metacpan

t/AptContents.t  view on Meta::CPAN

    [ $apt_contents->find_file_packages('Image/Magick.pm') ],
    [ 'perlmagick', 'graphicsmagick-libmagick-dev-compat' ],
    "Image/Magick.pm in perlmagick and graphicsmagick-libmagick-dev-compat, but different paths"
);

is( $apt_contents->find_perl_module_package('Image::Magick') . '',
    'graphicsmagick-libmagick-dev-compat | perlmagick',
    'Alternative dependency for Image::Magick module found in multiple packages'
);

ok( unlink "$Bin/Contents.cache", 'Contents.cache unlnked' );

 view release on metacpan or  search on metacpan

t/15-conditions-raw.t  view on Meta::CPAN

                            q|can_run('perlmagick')|,
                            '1 == 2',
                        ],
                        '-delimiter' => '+',
                        -raw => [
                            q|+  $WriteMakefileArgs{PREREQ_PM}{'Image::Magick'} = $FallbackPrereqs{'Image::Magick'} = '0.123';|,
                        ],
                    },
                ],
            ),
            path(qw(source lib Foo.pm)) => "package Foo;\n1;\n",

t/15-conditions-raw.t  view on Meta::CPAN

        <<CONTENT),
);

# inserted by Dist::Zilla::Plugin::DynamicPrereqs $version
if (can_run('perlmagick') && 1 == 2) {
  \$WriteMakefileArgs{PREREQ_PM}{'Image::Magick'} = \$FallbackPrereqs{'Image::Magick'} = '0.123';
}

CONTENT
    -1,
    'code from -codition and -raw inserted into Makefile.PL generated by [MakeMaker]',

 view release on metacpan or  search on metacpan

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

Image::Leptonica
Image::LibExif
Image::LibRSVG
Image::LibRaw
Image::Libpuzzle
Image::Magick
Image::Maps
Image::Match
Image::Mate
Image::Math
Image::MetaData

 view release on metacpan or  search on metacpan

bin/html2ps  view on Meta::CPAN

&getconf($opt_S) if($opt_S);
print DBG "*****\n" if($opt_d);
&pagedef;
($pagew,$pageh)=split /\s+/, $AT_page{'size'} if(defined $AT_page{'size'});

require Image::Magick if($package{'PerlMagick'});
$geturl=$package{'geturl'};
$ulanch="f";
$f=72/2.54;
$giftopm="giftopnm" if($package{'netpbm'});
$giftopm="giftoppm" if($package{'pbmplus'});

bin/html2ps  view on Meta::CPAN

      $ps.="restore";
    } elsif($type=~/.xbm$/i || $pic=~/^#define/) {
      &xbmtops;
    } elsif($package{'ImageMagick'}) {
      if($package{'PerlMagick'}) {
        $imobj=Image::Magick->new;
        $mess=$imobj->Read($scr);
        if($mess) {
          &dbg("$mess\n");
        } else {
          $mess=$imobj->Write("$scr\.$pg1");

 view release on metacpan or  search on metacpan

lib/EBook/MOBI/MobiPerl/Util.pm  view on Meta::CPAN

sub get_text_image {
    my $width = shift;
    my $height = shift;
    my $text = shift;
#    my $image = Image::Magick->new;
#    $image->Set(size=>"$width x $height");
#    $image->ReadImage('xc:white');
#    $image->Draw (pen => "red",
#		  primitive => "text",
#		  x => 200,

 view release on metacpan or  search on metacpan

lib/Email/Barcode/Decode.pm  view on Meta::CPAN

use Carp 'croak';
use Email::MIME;
use File::Temp qw(tempdir);
use File::Find::Rule;
use Path::Class qw(file);
use Image::Magick;
use Barcode::ZBar;
use Cwd 'getcwd';
use Capture::Tiny 'capture';
use File::Which qw(which);

lib/Email/Barcode/Decode.pm  view on Meta::CPAN

}

sub _get_symbols_from_file {
    my ($scanner, $file, $enhance_code) = @_;

    my $magick = Image::Magick->new();
    my $error = $magick->Read($file);
    die $error if $error;

    my ($raw, $raw_format) = $enhance_code->($magick);

 view release on metacpan or  search on metacpan

lib/FB3/Convert.pm  view on Meta::CPAN

use Encode qw(encode_utf8 decode_utf8);
use XML::Entities;
use XML::Entities::Data;
use Time::HiRes qw(gettimeofday sleep);
use Lingua::Identify qw(langof);
use Image::Magick;
use File::ShareDir qw/dist_dir/;
binmode(STDOUT,':utf8');

our $VERSION = 0.48;

lib/FB3/Convert.pm  view on Meta::CPAN

sub Img2JPG {
  my $X = shift;
  my $ImgFile = shift;
  my $UseProfile = shift || undef;
  my $To = $ImgFile.".jpg";
  my $Image = new Image::Magick;

  $Image->Read($ImgFile); #почему-то у IM "or die" всегда срабатывает...;

  if ($UseProfile) {
    if (!-s $sRGBProfile) {

 view release on metacpan or  search on metacpan

FFmpeg/StreamGroup.pm  view on Meta::CPAN

use Data::Dumper;
use File::Copy;
use File::Temp qw(tempfile tempdir);

use IO::String;
use Image::Magick::Iterator;

use base qw();
our $VERSION = '0.01';

=head2 new()

FFmpeg/StreamGroup.pm  view on Meta::CPAN

  $self->transcode( %arg );

  open($fh,$fn) or die "couldn't open '$fn': $!";

  my $iter = Image::Magick::Iterator->new();
  $iter->format( 'PPM' );
  $iter->handle($fh );

  return $iter;
}

 view release on metacpan or  search on metacpan

lib/File/Properties/Image.pm  view on Meta::CPAN

require 5.005;
use strict;
use warnings;
use Error qw(:try);
use Image::Magick;


our $DCRawBin = 'dcraw'; # DCRaw utility binary
our $RawBufferSize = 1048576; # Buffer size for use in raw image handling
our $CacheTableName = 'ImageFileCache';

lib/File/Properties/Image.pm  view on Meta::CPAN

  throw File::Properties::Error("Argument is not an IO::Handle",$fhnd)
    if (not defined $fhnd or not $fhnd->isa('IO::Handle'));
  # Ensure that file handle position is at the start of the file
  _seek0($fhnd) or
    throw File::Properties::Error("Seek on file handle failed",$fhnd);
  ## Initialise Image::Magick object, read in image pointed to by
  ## $fhnd, and check for errors
  my $imgk = Image::Magick->new;
  my $err = $imgk->Read(file=>$fhnd);
  throw File::Properties::Error("ImageMagick error: $err") if 0+$err < 1;
  ## Construct temporary file and write image data to it
  my $tmp = File::Temp->new;
  $err = $imgk->Write(file=>$tmp,filename=>"rgb:");

lib/File/Properties/Image.pm  view on Meta::CPAN

=back

=head1 SEE ALSO

L<File::Properties>, L<File::Properties::Cache>, L<File::Properties::Media>,
L<Image::Magick>

=head1 AUTHOR

Brendt Wohlberg E<lt>wohl@cpan.orgE<gt>