From c40dfee607e21eb7c058cc28df93626ca865fc67 Mon Sep 17 00:00:00 2001 From: Glen Hinkle Date: Fri, 3 Sep 2010 12:21:25 -0400 Subject: [PATCH] pod & readme update --- README.md | 4 ++-- lib/Google/Voice.pm | 13 ++++++++++--- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index a38dfc0..5f60336 100644 --- a/README.md +++ b/README.md @@ -5,7 +5,7 @@ Requires only Mojolicious & IO::Socket::SSL my $g = Google::Voice->new->login( 'user', 'pass' ); # sms conversation - foreach my $sms ( $g->sms_inbox ) { + foreach my $sms ( $g->sms ) { print $sms->name; print $_->time , ':', $_->text, "\n" foreach $sms->messages; @@ -19,7 +19,7 @@ Requires only Mojolicious & IO::Socket::SSL $call->cancel; # voicemail - foreach my $vm ( $g->voicemail_inbox ) { + foreach my $vm ( $g->voicemail ) { # name & transcribed text print $vm->name; diff --git a/lib/Google/Voice.pm b/lib/Google/Voice.pm index 0a5c435..560ad2b 100644 --- a/lib/Google/Voice.pm +++ b/lib/Google/Voice.pm @@ -148,11 +148,18 @@ google.com/voice services # Send sms $g->send_sms(5555555555 => 'Hello friend!'); - # Print all messages in sms inbox - print "$_->{name}, $_->{text}\n" foreach $g->sms; - # Error code from google on fail print $@ if ! $g->send_sms('invalid phone' => 'text message'); + + # Print all sms conversations + foreach my $sms ( $g->sms ) { + print $sms->name; + print $_->time , ':', $_->text, "\n" foreach $sms->messages; + } + + # connect call & cancel it + my $call = $g->call( '+15555555555' => '+14444444444' ); + $call->cancel; =head1 METHODS