use strict;
use warnings;
-our $VERSION = '1.15';
+our $VERSION = '1.19';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub _potential_value {
my ( $self, $slot_access ) = @_;
- return "( do { my \%potential = %{ $slot_access }; \@return = delete \@potential{\@_}; \\\%potential; } )";
+ return "( do { my \%potential = %{ ($slot_access) }; \@return = delete \@potential{\@_}; \\\%potential; } )";
}
sub _inline_optimized_set_new_value {
my ( $self, $inv, $new, $slot_access ) = @_;
- return "\@return = delete \@{ $slot_access }{\@_}";
+ return "\@return = delete \@{ ($slot_access) }{\@_}";
}
sub _return_value {