WWW::Twittervision - Perl extension to the Twittervision API
use WWW::Twittervision; my $tv = new WWW::Twittervision(); my $result = $tv->current_status(screen_name =>'screen name'); $result = $tv->update_status(screen_name =>'screen name', password => 'somepassword', location => 'some place in the world'); my @locations = $tv->parse_location(message => $message);
This module is a simple perl wrapper for the API provided by twittervision.com.
$tv = WWW::Twittervision->new() $tv = WWW::Twittervision(url => $url)
Constructor for WWW::Twittervision. It returns a reference to a WWW::Twittervision object. You may also pass the url of the webservice to use. The default value is http://api.twittervision.com and is the only url, to my knowledge, that provides the services needed by this module.
This function returns the current location and the last twitter message for a given screen name (twitter handle). The returned data structure is a HASHREF. Use Data::Dumper to inspect it or look at the module tests (found in t/*) for examples.
This function update the location for a twitter screen name. It returns a HASHREF which contains the new location along with the last twitter information. Use Data::Dumper to inspect the HASHREF or look at the module tests (found in t/*) for examples.
This function inspects a string for location patterns on the form l:<location>[:] (see also http://twittervision.com/maps/location_examples.html) The found locations are returned in an array. If none is found, the array is empty.
This function removes location patterns from the message string and returns the result.
Please report any bugs found or feature requests to http://code.google.com/p/www-twittervision/issues/list
The source code for this module is available from SVN at http://code.google.com/p/www-twittervision
Per Henrik Johansen, <firstname.lastname@example.org>
Copyright (C) 2008 by Per Henrik Johansen
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.