my $self = shift;
my $error;
- $error = $self->SUPER::delete;
+ $error = $self->SUPER::delete(@_);
return $error if $error;
'';
my ( $new, $old ) = ( shift, shift );
my $error;
- $error = $new->SUPER::replace($old);
+ $error = $new->SUPER::replace($old, @_);
return $error if $error;
'';