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->new;</div><div><div><br></div><div>i teraz to wywoływane byłoby automatycznie Bardzo::Dluga::Sciezka::Modul->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 => check => sub {</div><div> my ($unop) = @_;</div><div> if ($unop->first->sibling->sv->PV eq 'A') {</div>
<div> my $sv = B::svref_2object(\('A::B::C'));</div><div> $unop->first->sibling->sv($sv->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__ . "->m called\n";</div><div>};</div><div><br></div><div>A->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> .''`. Piotr Roszatycki<br>: :' : mailto:<a href="mailto:Piotr.Roszatycki@gmail.com">Piotr.Roszatycki@gmail.com</a><br>`. `' mailto:<a href="mailto:dexter@debian.org">dexter@debian.org</a><br>
`-<br>
</div></div>