Help for this page

Select Code to Download


  1. or download this
    $ perl -d -e 'sub foo { "bar" }; $o = bless {}, "main"'

...
foo
via UNIVERSAL: DOES
via UNIVERSAL: VERSION
  2. or download this
    diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ecc49a814d..d50dfd22b4 100644
...
     }
 } ## end sub methods_via
  3. or download this
    ($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,