Help for this page

Select Code to Download


  1. or download this
    package AB; # File: /Users/moo/AB.pm
use strict;
...
sub ohai { __FILE__ }
sub ohai_der { path(__FILE__)->absolute }
1;
  2. or download this
    moo@cow[54]~>perl -MAB -le 'print AB->ohai; print AB->ohai_der'
AB.pm
/Users/moo/AB.pm
  3. or download this
    moo@cow[55]~>perl -MAB -le 'chdir "/tmp"; print AB->ohai; print AB->oh
+ai_der;'
AB.pm
/private/tmp/AB.pm