Hmm przypomniało mi się, czego jeszcze bardzo nie lubię w perlu. To brak sensownej obsługi namespace, przez co trzeba pisać za każdym razem Bardzo::Dlugie::Sciezki::Do::Wlasnych::Modulow. A wystarczyłoby coś w stylu:<div><br>
</div><div>namespace Bardzo::Dluga::Sciezka;</div><div>Modul-&gt;new;</div><div><div><br></div><div>i teraz to wywoływane byłoby automatycznie Bardzo::Dluga::Sciezka::Modul-&gt;new.</div><div><br></div><div>Ale uwaga, poniższy kod działa :)</div>
<div><br></div><div><div>#!/usr/bin/perl</div><div><br></div><div>use B::Generate;</div><div><br></div><div>use B::OPCheck entersub =&gt; check =&gt; sub {</div><div>    my ($unop) = @_;</div><div>    if ($unop-&gt;first-&gt;sibling-&gt;sv-&gt;PV eq &#39;A&#39;) {</div>
<div>        my $sv = B::svref_2object(\(&#39;A::B::C&#39;));</div><div>        $unop-&gt;first-&gt;sibling-&gt;sv($sv-&gt;sv);</div><div>    };</div><div>};</div><div><br></div><div>package A::B::C;</div><div><br></div><div>
sub m {</div><div>    print __PACKAGE__ . &quot;-&gt;m called\n&quot;;</div><div>};</div><div><br></div><div>A-&gt;m();</div><div><br></div></div><div>Czyli grzebiąc po drzewie opkodów, dałoby się coś takiego zaimplementować. Nawet jest niby namespace::alias, ale ostatnio się nie kompiluje :/</div>
<div><br></div><div><br>-- <br> .&#39;&#39;`.    Piotr Roszatycki<br>: :&#39; :    mailto:<a href="mailto:Piotr.Roszatycki@gmail.com">Piotr.Roszatycki@gmail.com</a><br>`. `&#39;     mailto:<a href="mailto:dexter@debian.org">dexter@debian.org</a><br>
  `-<br>
</div></div>