Awesome

Google Voice library for Perl

• No parsing required - all data available in perl objects
• Only two pre-requisites:
  • Mojolicious
  • IO::Socket::SSL

Install

curl -L cpanmin.us | perl - Google::Voice

<a href="https://metacpan.org/module/Google::Voice">https://metacpan.org/module/Google::Voice</a>

Example

use Google::Voice;

my $g = Google::Voice->new->login('username', 'password');

# Send sms
$g->send_sms(5555555555 => 'Hello friend!');

# Error code from google on fail
print $@ if ! $g->send_sms('invalid phone' => 'text message');

# connect call & cancel it
my $call = $g->call( '+15555555555' => '+14444444444' );
$call->cancel;


# sms conversation
foreach my $sms ( $g->sms ) {
    print $sms->name;
    print $_->time , ':', $_->text, "\n" foreach $sms->messages;

    $sms->delete;
}

# loop through voicemail messages
foreach my $vm ( $g->voicemail ) {

    # Name, number, and transcribed text
    print $vm->name . "\n";
    print $vm->meta->{phoneNumber} . "\n";
    print $vm->text . "\n";

    # Download mp3
    $vm->download->move_to( $vm->id . '.mp3' );

    # Delete
    $vm->delete;
}