Help for this page
$ perl -d -e 'sub foo { "bar" }; $o = bless {}, "main"' ... foo via UNIVERSAL: DOES via UNIVERSAL: VERSION
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ecc49a814d..d50dfd22b4 100644 ... } } ## end sub methods_via
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,