AnyEvent-ImageShack

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

my $builder = Module::Build->new(
	module_name       => 'AnyEvent::ImageShack',
	license           => 'perl',
	dist_author       => 'Dmitry Konstantinov <konstantinov.dmitry@gmail.com>',
	dist_version_from => 'lib/AnyEvent/ImageShack.pm',
	build_requires    => {
		'Test::More' => 0,
	},
	requires          => {
		'AnyEvent::HTTP'        => 0,
		'HTTP::Request::Common' => 0,
	},
	meta_merge => {
		resources => {
			repository => 'git://github.com/konstantinov/AnyEvent-ImageShack.git',
		},
		keywords  => [ qw(anyevent imageshack) ],
	},
	create_makefile_pl => 'traditional',
);

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.38"
         }
      },
      "runtime" : {
         "requires" : {
            "AnyEvent::HTTP" : 0,
            "HTTP::Request::Common" : 0
         }
      }
   },
   "provides" : {
      "AnyEvent::ImageShack" : {
         "file" : "lib/AnyEvent/ImageShack.pm",
         "version" : "0.2"
      }
   },
   "release_status" : "stable",

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: AnyEvent-ImageShack
provides:
  AnyEvent::ImageShack:
    file: lib/AnyEvent/ImageShack.pm
    version: 0.2
requires:
  AnyEvent::HTTP: 0
  HTTP::Request::Common: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: git://github.com/konstantinov/AnyEvent-ImageShack.git
version: 0.2

Makefile.PL  view on Meta::CPAN

WriteMakefile
(
  'PL_FILES' => {},
  'INSTALLDIRS' => 'site',
  'NAME' => 'AnyEvent::ImageShack',
  'EXE_FILES' => [],
  'VERSION_FROM' => 'lib/AnyEvent/ImageShack.pm',
  'PREREQ_PM' => {
                   'Test::More' => 0,
                   'AnyEvent::HTTP' => 0,
                   'HTTP::Request::Common' => 0
                 }
)
;

lib/AnyEvent/ImageShack.pm  view on Meta::CPAN

package AnyEvent::ImageShack;

use strict;
use AnyEvent::HTTP;
use HTTP::Request::Common 'POST';
use base 'Exporter';
our $VERSION = '0.2';

our @EXPORT = qw(image_host);

sub image_host {
	my $file = shift;
	my $cb   = pop;
	my $url = '';