Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict; 
...
package main; 
qr//->bar;    # Works even though it probably shouldn't. 
qr//->foo;    # Errors as expected.
  2. or download this
     
$ perl -MB -le '$r=bless qr//,"P"; print B::svref_2object($r)->MAGIC->
+TYPE'
r