note
tobyink
<p><c>re::regmust</c> may be of some help...</p>
<c>
use 5.014;
use strict;
use warnings;
use re ();
use List::Util 'sum';
sub re_strictness ($) { sum map length, re::regmust shift }
say re_strictness qr/Dad+y/; # says 5
say re_strictness qr/D.+/; # says 1
</c>
<div class="pmsig"><div class="pmsig-757127">
<small><small><tt>package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name</tt></small></small>
</div></div>
1014816
1014816