view release on metacpan or  search on metacpan

examples/flickr.pl  view on Meta::CPAN

#
sub flickr_download_photo_callback {
	my ($soup, $content, $headers, $marker) = @_;

	if ($headers->{Status} !~ /^2\d\d/) {
		warn "$headers->{Status} $headers->{Reason}";
		return;
	}

	# Load the image with a Pixbuf Loader
	my ($mime) = split(/\s*;/, $headers->{'content-type'}, 1);

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

	# Transform the Pixbuf into a Clutter::Texture
	my $texture = Clutter::Texture->new();
	$texture->set_from_rgb_data(
		$pixbuf->get_pixels,

examples/image.pl  view on Meta::CPAN

	my ($url) = @_;

	# Download the image
	my $ua = LWP::UserAgent->new();
	my $response = $ua->get($url);
	if (! $response->is_success) {
		die $response->status_line;
	}

	# Load the image with a Pixbuf Loader
	my $mime = $response->header('content-type');
	my $loader = Gtk2::Gdk::PixbufLoader->new_with_mime_type($mime);
	$loader->write($response->content);
	$loader->close;
	my $pixbuf = $loader->get_pixbuf;

	# Transform the Pixbuf into a Clutter::Texture
	my $actor = Clutter::Texture->new();
	$actor->set_from_rgb_data(
		$pixbuf->get_pixels,
		$pixbuf->get_has_alpha,