Labyrinth-DIUtils-ImageMagick

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "recommends": {
                "Test::CPAN::Meta": "0",
                "Test::CPAN::Meta::JSON": "0",
                "Test::Pod": "1.00",
                "Test::Pod::Coverage": "0.08"
            }
        },
        "runtime" : {
            "requires" : {
                "perl": "5.006",
                "Image::Magick": "0"
            }
        }
    },

    "provides": {
        "Labyrinth::DIUtils::ImageMagick": {
            "file": "lib/Labyrinth/DIUtils/ImageMagick.pm",
            "version": "5.08"
        }
    },

META.yml  view on Meta::CPAN

abstract:                 Digital Image utilities driver with GD for Labyrinth Framework
author:
  - Barbie <barbie@cpan.org>

license:                  artistic_2
distribution_type:        module
installdirs:              site

requires:
  perl:                             5.006
  Image::Magick:                    0
recommends:
  Test::More:                       0.70
  Test::Pod:                        1.00
  Test::Pod::Coverage:              0.08
  Test::CPAN::Meta:                 0.13
  Test::JSON::Meta:                 0.08
build_requires:
  File::Copy:                       0
  File::Path:                       0
  IO::File:                         0

Makefile.PL  view on Meta::CPAN

WriteMakefile(
    AUTHOR              => 'Barbie <barbie@cpan.org>',
    NAME                => 'Labyrinth::DIUtils::ImageMagick',
    VERSION_FROM        => 'lib/Labyrinth/DIUtils/ImageMagick.pm',
    ABSTRACT            => 'Digital Image utilities driver with ImageMagick for Labyrinth Framework',
    NO_META             => 1,
    PREREQ_PM           => {

        # prereqs
        'Image::Magick'         => 0,

        # build/test prereqs
        'File::Copy'            => 0,
        'File::Path'            => 0,
        'IO::File'              => 0,
        'Test::More'            => '0.70'
    }
);

lib/Labyrinth/DIUtils/ImageMagick.pm  view on Meta::CPAN

Handles the driver software for ImageMagick image manipulation; Do not use
this module directly, access via Labyrinth::DIUtils.

=cut

#############################################################################
#Modules/External Subroutines                                               #
#############################################################################

use Image::Magick;

#############################################################################
#Subroutines
#############################################################################

=head1 METHODS

=head2 Contructor

=over 4

lib/Labyrinth/DIUtils/ImageMagick.pm  view on Meta::CPAN

=cut

sub new {
    my $self  = shift;
    my $image = shift;

    die "no image specified"    if !$image;
    die "no image file found"   if !-f $image;

    # read in current image
    my $i = Image::Magick->new();
    die "object image error: [$image]\n"    if !$i;
    my $c = $i->Read($image);
    die "read image error: [$image] $c\n"   if $c;

    my $atts = {
        'image'     => $image,
        'object'    => $i,
    };

    # create the object

lib/Labyrinth/DIUtils/ImageMagick.pm  view on Meta::CPAN

    my $c = $i->Write($file);
    die "write image error: [$self->{image}] $c\n"   if $c;
}

1;

__END__

=head1 SEE ALSO

L<Image::Magick>,
L<Labyrinth>,
L<Labyrinth::DIUtils::GD>

=head1 AUTHOR

Barbie, <barbie@missbarbell.co.uk> for
Miss Barbell Productions, L<http://www.missbarbell.co.uk/>

=head1 COPYRIGHT & LICENSE