$self->$key($value);
}
- {
- no strict 'refs';
- no warnings 'redefine';
- my $submit = qualify_to_ref('submit', $subclass);
- unless ( $subclass->can('submit') eq
- $class->can('submit'))
- {
-
- $self->{_child_submit} = \&$submit;
- *{"${subclass}::submit"} = sub {
- my $self = shift;
- $self->_pre_submit();
- }
- }
+ unless ( $subclass->can('submit') eq $class->can('submit') ) {
+ no strict 'refs';
+ no warnings 'redefine';
+ my $submit = qualify_to_ref('submit', $subclass);
+
+ $self->{_child_submit} = \&$submit;
+ *{"${subclass}::submit"} = sub {
+ my $self = shift;
+ $self->_pre_submit();
+ }
}
return $self;