Select Code to Download

sub blessed_regex{ return bless qr/[a-z]/,'foo' }

sub blessed_regex{ return bless \qr/[a-z]/,'foo' }

use strict;
use warnings;
...
Bless:    foo=SCALAR(0x1a7ef64):    ---
Rex  :    $VAR1 = qr/(?-xism:[A-Z]o[A-Z])/;
Bless:    $VAR1 = bless( do{\(my $o = undef)}, 'foo' );

 
bless \"foo","foo"

bless qr/somepattern/,"foo";