view release on metacpan or  search on metacpan

bin/pexeso  view on Meta::CPAN

#
sub parse_icon {
	my $pexeso = shift;
	my ($url, $content, $headers) = @_;

	if ($headers->{Status} != 200) {
		$pexeso->quit("Failed to download $url: $headers->{Reason} (Status: $headers->{Status})");
		return;
	}

	my ($mime) = split(/\s*;/, $headers->{'content-type'}, 1);
	if ($mime !~ m,^(image/\S+),) {
		$pexeso->quit("Document $url is not an image (Mime: $mime)");
		return;
	}

	my $loader = Gtk2::Gdk::PixbufLoader->new_with_mime_type($mime);
	$loader->write($content);
	$loader->close;
	my $pixbuf = $loader->get_pixbuf;