WWW::Google::API::Base Perl client to the Google Base API
Download

WWW::Google::API::Base Ranking & Summary

WWW::Google::API::Base Tags

Google Perl module perl api Google Base API

WWW::Google::API::Base Description

Perl client to the Google Base API WWW::Google::API::Base is a Perl client to the Google Base API.SYNOPSIS use WWW::Google::API::Base; my $file_conf = LoadFile($ENV{HOME}.'/.gapi'); my $api_key = $ENV{gapi_key}; my $api_user = $ENV{gapi_user}; my $api_pass = $ENV{gapi_pass}; my $gbase = WWW::Google::API::Base->new( { auth_type => 'ProgrammaticLogin', api_key => $api_key, api_user => $api_user, api_pass => $api_pass }, { } );METHODSinsert $insert_entry = $gbase->insert( 'http://www.google.com/base/feeds/itemtypes/en_US/Recipes', { -title => 'He Jingxian's chicken', -content => "Delectable Sichuan specialty", -link => , cooking_time => 30, label => , main_ingredient => , servings => 5, }, ); $new_id = $insert_entry->id;update $update_entry = $gbase->update( $new_id, { -title => 'He Jingxian's chicken', -content => "Delectable Sichuan specialty", -link => , cooking_time => 60, label => , main_ingredient => , servings => 15, }, );delete my $delete_response; eval { $delete_response =$gbase->delete($new_id); }; if ($@) { my $e = $@; die $e->status_line; # HTTP::Response } die "Successfully deleted if $delete_response->code == 200; # HTTP::ResponseselectCurrently only supports querying by id my $select_inserted_entry; eval { $select_inserted_entry =$gbase->select($new_id); }; if ($@) { my $e = $@; die $e->status_line; # HTTP::Response } Requirements: · Perl

WWW::Google::API::Base Related Software