package Reaction::InterfaceModel::Action::DBIC::Result::Delete;
+use aliased 'Reaction::InterfaceModel::Action::DBIC::Result';
+use aliased 'Reaction::InterfaceModel::Action::Role::SimpleMethodCall';
use Reaction::Types::DBIC 'Row';
use Reaction::Class;
-class Delete is 'Reaction::InterfaceModel::Action', which {
- has '+target_model' => (isa => Row);
+use namespace::clean -except => [ qw(meta) ];
+extends Result;
- sub can_apply { 1 }
+with SimpleMethodCall;
+sub _target_model_method { 'delete' };
- implements do_apply => as {
- my $self = shift;
- return $self->target_model->delete;
- };
+__PACKAGE__->meta->make_immutable;
-};
1;