note
tobyink
<p>You are not calling your anonymous subs as methods, thus they don't get any invocant (<c>$self</c>). You could call them like this:</p>
<c>
my $method = $a->answers->{answers_comments};
$a->answers->$method(
123,
134,
145,
{
order => "desc",
sort => "votes",
},
);
</c>
<p>Then they'll have an invocant.</p>
<p>It would be much saner though to install your methods as genuine methods, not coderefs floating around attached to blessed objects.</p>
<c>
# in Answers.pm
use Sub::Name 'subname';
*answers_comments = subname(
"Net::StackExchange::V2::Answer::answers_comments",
one_param("answers","comments"),
);
</c>
<p>Now you can call it like a proper method:</p>
<c>
$a->answers->answers_comments(
123,
134,
145,
{
order => "desc",
sort => "votes",
},
);
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1014174
1014174