my $instance = bless {}, $class;
for my $attribute (values %{ $class->meta->get_attribute_map }) {
- my $key = $attribute->init_arg;
+ my $key = $attribute->name;
my $default;
if (!exists($args{$key})) {
$instance->{$key} = $value;
weaken($instance->{$key})
- if $attribute->weak_ref;
+ if ref($instance->{$key}) && $attribute->is_weak_ref;
}
}
else {
$instance->{$key} = $args{$key};
weaken($instance->{$key})
- if $attribute->weak_ref;
+ if ref($instance->{$key}) && $attribute->is_weak_ref;
if ($attribute->has_trigger) {
$attribute->trigger->($instance, $args{$key}, $attribute);