WebService-Images-Nofrag

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

                       module_name => 'WebService::Images::Nofrag',
                       license     => 'perl',
                       dist_author => 'franck cuny <franck.cuny@gmail.com>',
                       dist_version_from => 'lib/WebService/Images/Nofrag.pm',
                       requires          => {
                                     'Test::More'            => 0,
                                     'version'               => 0,
                                     'WWW::Mechanize'        => 0,
                                     'LWP::Simple'           => 0,
                                     'Class::Accessor::Fast' => 0,
                                     'Image::Magick'         => 0,
                                     'Image::Magick::Info'   => 0,
                                     'Test::Perl::Critic'    => 0,
                       },
                       add_to_cleanup => [ 'WebService-Images-Nofrag-*' ],
);

$builder->create_build_script();

META.yml  view on Meta::CPAN

--- #YAML:1.0
name:                WebService-Images-Nofrag
version:             0.06
abstract:            upload an image to http://pix.nofrag.com
license:             perl
generated_by:        ExtUtils::MakeMaker version 6.32
distribution_type:   module
requires:     
    Class::Accessor::Fast:         0
    Image::Magick:                 0
    Image::Magick::Info:           0
    LWP::Simple:                   0
    Test::More:                    0
    Test::Perl::Critic:            0
    version:                       0
    WWW::Mechanize:                0
meta-spec:
    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
    version: 1.2
author:
    - franck cuny <franck.cuny@gmail.com>

Makefile.PL  view on Meta::CPAN

               AUTHOR        => 'franck cuny <franck.cuny@gmail.com>',
               VERSION_FROM  => 'lib/WebService/Images/Nofrag.pm',
               ABSTRACT_FROM => 'lib/WebService/Images/Nofrag.pm',
               PL_FILES      => {},
               PREREQ_PM     => {
                              'Test::More'            => 0,
                              'version'               => 0,
                              'WWW::Mechanize'        => 0,
                              'Class::Accessor::Fast' => 0,
                              'Test::Perl::Critic'    => 0,
                              'Image::Magick'         => 0,
                              'Image::Magick::Info'   => 0,
                              'LWP::Simple'           => 0,
               },
               dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
               clean => { FILES => 'WebService-Images-Nofrag-*' },
);

README  view on Meta::CPAN

    perl Build.PL
    ./Build
    ./Build test
    ./Build install



DEPENDENCIES

Class::Accessor::Fast
Image::Magick
Image::Magick::Info
LWP::Simple
Test::More
Test::Perl::Critic
version
WWW::Mechanize
                     
COPYRIGHT AND LICENCE

Copyright (C) 2007, franck cuny

lib/WebService/Images/Nofrag.pm  view on Meta::CPAN

package WebService::Images::Nofrag;

use warnings;
use strict;
use Carp;
use WWW::Mechanize;
use base qw(Class::Accessor::Fast);
use Image::Magick;
use Image::Magick::Info qw( get_info );
use LWP::Simple;

WebService::Images::Nofrag->mk_accessors( qw(thumb image url) );

=head1 NAME

WebService::Images::Nofrag - upload an image to http://pix.nofrag.com

=head1 VERSION

lib/WebService/Images/Nofrag.pm  view on Meta::CPAN

    if ( defined $$params{ file } && !-r $$params{ file } ) {
        croak "Problem, can't read this file";
    }

    if ( defined $$params{ url } ) {
        getstore( $$params{ url }, $tempory_file );
    }

    # do we need to resize ?
    if ( defined $$params{ resize } ) {
        my $img = new Image::Magick;
        if ( -f $tempory_file ) {
            $img->Read( $tempory_file );
        } else {
            $img->Read( $$params{ file } );
        }
        $img->Resize( $$params{ resize } );
        $img->Write( $tempory_file );
    }

    if ( -f $tempory_file ) {