- my $caller = caller;
- no strict 'refs'; ## no critic (ProhibitNoStrict)
- if (my $store = $args{store}) {
- *{"${caller}::${name}"} = $is eq 'ro' && $has_default ? sub {
- $_[0]->$store->{$name} //= scalar $default->($_[0]);
- } : $is eq 'ro' ? sub {
- $_[0]->$store->{$name} //= $default;
- } : $has_default && $has_coerce ? sub {
- $#_ ? $_[0]->$store->{$name} = scalar $coerce->($_[1])
- : $_[0]->$store->{$name} //= scalar $default->($_[0]);
- } : $has_default ? sub {
- $#_ ? $_[0]->$store->{$name} = $_[1]
- : $_[0]->$store->{$name} //= scalar $default->($_[0]);
- } : $has_coerce ? sub {
- $#_ ? $_[0]->$store->{$name} = scalar $coerce->($_[1])
- : $_[0]->$store->{$name} //= $default;
- } : sub {
- $#_ ? $_[0]->$store->{$name} = $_[1]
- : $_[0]->$store->{$name} //= $default;
- };
- }
- else {
- *{"${caller}::${name}"} = $is eq 'ro' && $has_default ? sub {
- $_[0]->{$name} //= scalar $default->($_[0]);
- } : $is eq 'ro' ? sub {
- $_[0]->{$name} //= $default;
- } : $has_default && $has_coerce ? sub {
- $#_ ? $_[0]->{$name} = scalar $coerce->($_[1])
- : $_[0]->{$name} //= scalar $default->($_[0]);
- } : $has_default ? sub {
- $#_ ? $_[0]->{$name} = $_[1]
- : $_[0]->{$name} //= scalar $default->($_[0]);
- } : $has_coerce ? sub {
- $#_ ? $_[0]->{$name} = scalar $coerce->($_[1])
- : $_[0]->{$name} //= $default;
- } : sub {
- $#_ ? $_[0]->{$name} = $_[1]
- : ($_[0]->{$name} //= $default);
- };
+ my @path = split(/\./, $args{path} || '');
+ my $last = pop @path;
+ my $path = $last ? join('', map { qq{->$_} } @path) . qq{->{'$last'}}
+ : $store ? qq{->$store\->{'$name'}} : qq{->{'$name'}};
+ my $member = qq{\$_[0]$path};
+
+
+ my $default_code = is_coderef $default ? q{scalar $default->($_[0])}
+ : defined $default ? q{$default}
+ : q{undef};
+ my $get = qq{$member //= $default_code;};
+
+ my $set = '';
+ if ($is eq 'rw') {
+ $set = is_coderef $coerce ? qq{$member = scalar \$coerce->(\@_[1..\$#_]) if \$#_;}
+ : defined $coerce ? qq{$member = do { local @_ = (\@_[1..\$#_]); $coerce } if \$#_;}
+ : qq{$member = \$_[1] if \$#_;};