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
do something like the following:
coerce => sub {
- $_[0] + 1 unless $_[0] % 2
+ $_[0] % 2 ? $_[0] : $_[0] + 1
},
Note that L<Moo> will always fire your coercion: this is to permit