t/run/switchp.t

   1 #!./perl -p
   2
   3 BEGIN {
   4     print "1..3\n";
   5     *ARGV = *DATA;
   6 }
   7
   8 END {
   9     print "ok 3 - -p switch tested\n";
  10 }
  11
  12 s/^not //;
  13
  14 __DATA__
  15 not ok 1 - -p switch first iteration
  16 not ok 2 - -p switch second iteration