poem
bronto
<p><code><sad></code>This "poem" has come to my mind this morning, when I unsuccesfully tried to renew my passport and I have been running around in circles in my town without any useful result. This doesn't compile and hence doesn't run; in fact, I don't have my password renewed, yet. Try to run it after a month or two it has been posted, maybe I'll have my passport renewed and, then, it will work...<code></sad></code></p>
<p>About the <code>Can't locate patience.pm in @INC</code> complain: that's because I lost it all this morning, if you can find it and provide some, you are welcome</p>
<code>
#!/usr/bin/perl
use patience ;
use Bronto ;
use Phone::Mobile ;
my $self = Bronto->new ;
my $phone = $self->get("phone") ;
my $dad = $self->call("dad", using => $phone) ;
my $reply = $dad->ask("how do I renew my passport?") ;
# At this point $reply holds the value
# "There are new dispositions, go to the Carabinieri and ask them to renew it"
alarm $at_7_am ;
sleep $all_night ;
# alarm rings now...
$bronto->have("shower") ;
$bronto->have("breakfast") ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ring("carabinieri") ;
# $reply now holds
# "Call forwarded"... what? Forwarded... why?
$reply = $bronto->wait ;
# $reply holds: "They open at 10"
$reply = $bronto->say("But I read 8:00 - 22:00 here") ;
# $reply holds: "It changed months ago"
$reply = $bronto->localtime ; # 8:45
$bronto->goto("home") and sleep $until_10_am ;
$bronto->goto("carabinieri") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is now: "Sit down here, please" ;
sleep $ten_minutes ;
# $reply is now: "You have to ask to the City Police, not us";
# Do you wonder how it happened? Can't say. Maybe the carabiniere
# had a reference to $reply at hand...
$bronto->goto("city police") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Not us, try at the city records office"
$bronto->goto("downstairs") ;
$reply = $bronto->ask("I have to renew my passport") ;
# $reply is "Go to the main police station in Cagliari"
$reply = $bronto->feels ;
# $reply is "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRGHHHHH!!!"
$bronto->watch(movie => 'http://www.imdb.com/title/tt0072901/') and
learn_lesson() ;
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-175325">
<p><big><strong>Sigh!</strong></big><br><tt>--bronto</tt></p>
<hr>
<blockquote><small><i>In theory, there is no difference between theory and practice. In practice, there is.</i></small></blockquote>
</div></div>