The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package Reaction::InterfaceModel::Action::Search::UpdateSpec;

use Reaction::Class;
#use aliased 'BrokerInterface::SearchSpec';
use Method::Signatures::Simple;
use Reaction::InterfaceModel::Reflector::SearchSpec;
use Carp qw( confess );

use namespace::clean -except => 'meta';

extends 'Reaction::InterfaceModel::Action';

method _reflection_info () {
    confess sprintf "Class %s did not override the _reflection_info method", 
        ref($self) || $self;
}

with 'Reaction::InterfaceModel::Search::UpdateSpec';

1;

=head1 NAME

Reaction::InterfaceModel::Action::Search::UpdateSpec - Update search specification

=head1 SYNOPSIS

  package MyApp::InterfaceModel::UpdateSearchSpec;
  use Reaction::Class;
  use Reaction::InterfaceModel::Reflector::SearchSpec;

  use aliased 'MyApp::InterfaceModel::SearchSpec';

  use namespace::autoclean;

  extends 'Reaction::InterfaceModel::Action::Search::UpdateSpec';

  # this will reflect the search spec as update spec in the current
  # class.
  my $info = reflect_attributes_from_target SearchSpec;

  sub _reflection_info { $info }

  1;

=cut