WebService-Rajce

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Digest::MD5" : "0",
            "Encode" : "0",
            "Exporter" : "0",
            "File::Basename" : "0",
            "File::Path" : "2.06_05",
            "Getopt::Long" : "0",
            "Image::Magick" : "0",
            "Net::Netrc" : "0",
            "POSIX" : "0",
            "Pod::Usage" : "0",
            "WWW::Mechanize" : "0",
            "XML::FeedPP" : "0",
            "XML::Simple" : "0",
            "perl" : "5.006",
            "strict" : "0",
            "vars" : "0",
            "warnings" : "0"

META.yml  view on Meta::CPAN

  version: '1.4'
name: WebService-Rajce
requires:
  Carp: '0'
  Digest::MD5: '0'
  Encode: '0'
  Exporter: '0'
  File::Basename: '0'
  File::Path: 2.06_05
  Getopt::Long: '0'
  Image::Magick: '0'
  Net::Netrc: '0'
  POSIX: '0'
  Pod::Usage: '0'
  WWW::Mechanize: '0'
  XML::FeedPP: '0'
  XML::Simple: '0'
  perl: '5.006'
  strict: '0'
  vars: '0'
  warnings: '0'

Makefile.PL  view on Meta::CPAN

  "MIN_PERL_VERSION" => "5.006",
  "NAME" => "WebService::Rajce",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Digest::MD5" => 0,
    "Encode" => 0,
    "Exporter" => 0,
    "File::Basename" => 0,
    "File::Path" => "2.06_05",
    "Getopt::Long" => 0,
    "Image::Magick" => 0,
    "Net::Netrc" => 0,
    "POSIX" => 0,
    "Pod::Usage" => 0,
    "WWW::Mechanize" => 0,
    "XML::FeedPP" => 0,
    "XML::Simple" => 0,
    "strict" => 0,
    "vars" => 0,
    "warnings" => 0
  },

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "Carp" => 0,
  "Digest::MD5" => 0,
  "Encode" => 0,
  "Exporter" => 0,
  "File::Basename" => 0,
  "File::Path" => "2.06_05",
  "Getopt::Long" => 0,
  "Image::Magick" => 0,
  "Net::Netrc" => 0,
  "POSIX" => 0,
  "Pod::Usage" => 0,
  "WWW::Mechanize" => 0,
  "XML::FeedPP" => 0,
  "XML::Simple" => 0,
  "strict" => 0,
  "vars" => 0,
  "warnings" => 0
);

lib/WebService/Rajce.pm  view on Meta::CPAN

# ABSTRACT: Perl module for rajce.net web API.
$WebService::Rajce::VERSION = '1.202830';
use 5.006;
use strict;
use warnings;

use WWW::Mechanize;
use XML::Simple;
use Digest::MD5 qw(md5_hex);
use Encode;
use Image::Magick;
use Carp;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;


our @ISA = qw(Exporter AutoLoader);
our @EXPORT = qw();

lib/WebService/Rajce.pm  view on Meta::CPAN

	}

return $response;
}

sub add_photo {
	my ($self,$filename,$album) = @_;

	my $thumbsize = "100x100";

	my $thumb = new Image::Magick;
	$thumb->Read($filename);
	$thumb->AutoOrient();
	$thumb->Resize(geometry=>"$thumbsize^");
	$thumb->Crop(gravity=>"Center",geometry=>"$thumbsize");
	$thumb->Strip();

	my $pic = new Image::Magick;
	$pic->Read($filename);
	$pic->AutoOrient();
	$pic->Resize(geometry=>"$self->{maxWidth}x$self->{maxHeight}>");

	if(!$self->{KEEP_EXIF}){
		$pic->Strip();
	}

	my ($width, $height) = $pic->Get('width','height');