print re_strictness qr/.../, "\n";
In which case the ($) prototype helps Perl see the "\n" as a parameter for print, not for re_strictness.
By the way, it's worth pointing out that qr/^Dad+y$/ is also considered slightly stricter than qr/Dad+y/.
use 5.014;
use strict;
use warnings;
use re ();
use List::Util 'sum';
sub re_strictness ($) { sum map length, re::regmust shift }
print
re_strictness qr/^Dad+y$/, "\n",
re_strictness qr/Dad+y/, "\n",
re_strictness qr/D.+/, "\n",
;
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
|