use warnings;
use MRO::Compat;
-use Scalar::Util 'blessed';
+use Scalar::Util qw/blessed weaken/;
use Carp 'confess';
sub new {
$instance->{$key} = $value;
- Scalar::Util::weaken($instance->{$key})
+ weaken($instance->{$key})
if $attribute->weak_ref;
}
}
$instance->{$key} = $args{$key};
- Scalar::Util::weaken($instance->{$key})
+ weaken($instance->{$key})
if $attribute->weak_ref;
if ($attribute->has_trigger) {