-
- my $caller = caller;
- push @{$ATTRIBUTES{$caller} //= []}, $name;
-
- no strict 'refs'; ## no critic (ProhibitNoStrict)
- if ($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);
- };
+ push @{$ATTRIBUTES{$package} //= []}, $name;
+
+ my $store_code = '';
+ $store_code = qq{->$store} if $store;
+ my $member = qq{\$_[0]$store_code\->{'$name'}};
+
+ 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 $_; shift; $coerce } if \$#_;}
+ : qq{$member = \$_[1] if \$#_;};