WWW::Google::API::BasePerl client to the Google Base API | |
Download |
WWW::Google::API::Base Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- John Cappiello
- Publisher web site:
- http://www.wikalong.org/
WWW::Google::API::Base Tags
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