use B 'perlstring';
use Sub::Defer ();
-our $VERSION = '1.003000';
+our $VERSION = '1.003001';
$VERSION = eval $VERSION;
require Moo::sification;
$MAKERS{$target}{accessor} ||= do {
my $maker_class = do {
if (my $m = do {
- if (my $defer_target =
+ if (my $defer_target =
(Sub::Defer::defer_info($target->can('new'))||[])->[0]
) {
my ($pkg) = ($defer_target =~ /^(.*)::[^:]+$/);
} else {
$moo_constructor = 1; # no other constructor, make a Moo one
}
- };
+ }
($con ? ref($con) : 'Method::Generate::Constructor')
->new(
package => $target,
}
1;
+__END__
+
=pod
=encoding utf-8