title: How can I pass a instance method in Perl?
body: <pre><code>sub method_of_class_A {
      B-&gt;new(back =&gt; a_specific_method_of_class_A)-&gt;run;
  }
  </code></pre>
  
  <p>I want to pass current <code>A</code> instance <code>a</code>'s <code>a_specific_method_of_class_A</code> to <code>B</code>'s instance <code>b</code> so that <code>b</code> can <code>goto</code> <code>a</code>'s <code>a_specific_method_of_class_A</code></p>
  
  <p>as if <code>a-&gt;a_specific_method_of_class_A</code> is called directly so that the stack doesn't accumulate.</p>
  
  <p>How to do this kind of job in Perl?</p>