view release on metacpan or  search on metacpan

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

		$url  = $file;
		$file = undef;
	}
	my $opt = ref $_[0] ? $_[0] : { @_ };
	
	$AnyEvent::HTTP::USERAGENT      = $opt->{'user_agent'} || 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_7; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.205 Safari/534.16';
	$AnyEvent::HTTP::MAX_PER_HOST ||= $opt->{'max_per_host'};
	$AnyEvent::HTTP::ACTIVE       ||= $opt->{'active'      };
	
	my $p = POST
		'http://www.imageshack.us/upload_api.php',
		Content_Type => 'multipart/form-data',
		Content      => [
			fileupload    => $file ? [ $file ] : [ '' ],
			url           => $url,
			tags          => $opt->{'tags'} || '',
			rembar        => $opt->{'remove_size'} || 1,
			optimage      => 1,
			key           => $opt->{'key'},
			optsize       => $opt->{'size'} || 'resample',
		]
	;
	
	http_post