Sha256: a58014df6a583bd90c84d1837182b95563059b575d2d33d8fa60cae70057353c
Contents?: true
Size: 1.24 KB
Versions: 17
Compression:
Stored size: 1.24 KB
Contents
package Javonet::Core::Handler::CommandHandler::SetInstanceFieldHandler;
use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
use strict;
use warnings FATAL => 'all';
use Moose;
use lib 'lib';
use lib 'data_seed';
use Nice::Try;
use Data::Dumper;
use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
sub new {
my $class = shift;
my $self = {
required_parameters_count => 2
};
return bless $self, $class;
}
sub process {
my ($self, $command) = @_;
try {
my $current_payload_ref = $command->{payload};
my @cur_payload = @$current_payload_ref;
my $parameters_length = @cur_payload;
if ($parameters_length < $self->{required_parameters_count}) {
die Exception->new("Exception: GetInstanceField parameters mismatch");
}
my $instance = $command->{payload}[0];
my $field_name = $command->{payload}[1];
my $new_value = $command->{payload}[2];
no strict 'refs';
${"${instance}->${field_name}"} = $new_value;
return 0;
}
catch ($e){
return Exception->new($e);
}
}
no Moose;
1;
Version data entries
17 entries across 17 versions & 1 rubygems