sub blessed_regex{ return bless qr/[a-z]/,'foo' }
####
sub blessed_regex{ return bless \qr/[a-z]/,'foo' }
##
##
use strict;
use warnings;
use Data::Dumper;
my $rex = qr/[A-Z]o[A-Z]/;
my $blessed = bless qr/[A-Z]o[A-Z]/,'foo';
$\="\n";
$,=":\t";
print "Rex ",ref $rex;
print "Bless",ref $blessed;
print "Rex ",$rex,"WoW"=~$rex ? "WoW" : "---";
print "Bless",$blessed,"WoW"=~$blessed ? "WoW" : "---";
print "Rex ",$rex,"wow"=~$rex ? "!WoW" : "---";
print "Bless",$blessed,"wow"=~$blessed ? "!WoW" : "---";
print "Rex ",Dumper($rex);
print "Bless",Dumper($blessed);
__END__
Rex : Regexp
Bless: foo
Rex : (?-xism:[A-Z]o[A-Z]): WoW
Bless: foo=SCALAR(0x1a7ef64): WoW
Rex : (?-xism:[A-Z]o[A-Z]): ---
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";