Method check could set at least 'checked' attribute in given rows.
Passes test 53 (options var unmodified).
my ($name, $label, $checked, $attr) = $self->_attr(3, @_);
my $rows = defined $label ? ref $label eq 'ARRAY' ? [@$label] : [$label] : [{}];
- ref $_ eq 'HASH' or $_ = {label => $_} for @$rows;
+ $_ = ref $_ eq 'HASH' ? {%$_} : {label => $_} for @$rows;
if (defined $checked) {
if (ref $checked eq 'ARRAY') {
$rows->[$_]->{checked} = $checked->[$_] for 0 .. $#$rows;