perlquestion
neilwatson
<p>
Consider this sub from [mod://Bot::BasicBot]
<code>
sub _fork_said {
my ($self, $body, $wheel_id) = @_[OBJECT, ARG0, ARG1];
chomp $body; # remove newline necessary to move data;
# pick up the default arguments we squirreled away earlier
my $args = $self->{forks}{$wheel_id}{args};
$args->{body} = $body;
$self->say($args);
return;
}
</code>
<p>
What does the first line in the sub do? It would seem to me to set off a strict
error. <a href="https://github.com/hinrik/bot-basicbot/blob/master/lib/Bot/BasicBot.pm#L192-L202">Original code here.</a>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-104468">
<p>
Neil Watson<br>
<a href="http://watson-wilson.ca">watson-wilson.ca</a>
</div></div>