>perl -E"$r=qr/a/; say ref($r) eq 'Regexp' ||0"
1

>perl -E"$r=qr/a/; say ref($$r) eq 'Regexp' ||0"
0

>perl -E"$r=qr/a/; say re::is_regexp($r) ||0"
1

>perl -E"$r=qr/a/; say re::is_regexp($$r) ||0"
1