RubyGems - javonet-ruby-sdk - Versions diffs - 2.1.8 → 2.1.9 - Mend

javonet-ruby-sdk 2.1.8 → 2.1.9

Files changed (463) hide show

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Comment.pm CHANGED Viewed

@@ -61,7 +61,7 @@ parent L<PPI::Token> and L<PPI::Element> classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/DashedWord.pm CHANGED Viewed

@@ -29,7 +29,7 @@ keywords.  As such, this class may be removed from PPI in the future.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Data.pm CHANGED Viewed

@@ -38,7 +38,7 @@ use if USE_IO_STRING, 'IO::String';
 # IO is loaded
 use if !USE_IO_STRING, 'IO::File';
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/End.pm CHANGED Viewed

@@ -43,7 +43,7 @@ L<PPI::Element> parent classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/HereDoc.pm CHANGED Viewed

@@ -86,7 +86,7 @@ have a relatively large number of unique methods all of their own.
 use strict;
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Label.pm CHANGED Viewed

@@ -29,7 +29,7 @@ L<PPI::Token> and L<PPI::Element> classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Magic.pm CHANGED Viewed

@@ -46,7 +46,7 @@ use PPI::Token::Symbol ();
 use PPI::Token::Unknown ();
 use PPI::Singletons qw' %MAGIC $CURLY_SYMBOL ';
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Symbol";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Binary.pm CHANGED Viewed

@@ -29,7 +29,7 @@ represent base-2 numbers.
 use strict;
 use PPI::Token::Number ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Exp.pm CHANGED Viewed

@@ -31,7 +31,7 @@ represent floating point numbers with exponential notation.
 use strict;
 use PPI::Token::Number::Float ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number::Float";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Float.pm CHANGED Viewed

@@ -31,7 +31,7 @@ PPI::Token::Number::Exp class.
 use strict;
 use PPI::Token::Number ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Hex.pm CHANGED Viewed

@@ -29,7 +29,7 @@ represent base-16 numbers.
 use strict;
 use PPI::Token::Number ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Octal.pm CHANGED Viewed

@@ -29,7 +29,7 @@ represent base-8 numbers.
 use strict;
 use PPI::Token::Number ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number/Version.pm CHANGED Viewed

@@ -33,7 +33,7 @@ at all by Perl, but they look like numbers to a parser.
 use strict;
 use PPI::Token::Number ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Number";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Number.pm CHANGED Viewed

@@ -32,7 +32,7 @@ in the various types that Perl supports.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Operator.pm CHANGED Viewed

@@ -43,7 +43,7 @@ use strict;
 use PPI::Token ();
 use PPI::Singletons '%OPERATOR';
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Pod.pm CHANGED Viewed

@@ -28,7 +28,7 @@ use strict;
 use Params::Util qw{_INSTANCE};
 use PPI::Token   ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Prototype.pm CHANGED Viewed

@@ -49,26 +49,9 @@ L<PPI::Token> and L<PPI::Element> parent classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
-our @ISA = "PPI::Token";
-sub __TOKENIZER__on_char {
-	my $class = shift;
-	my $t     = shift;
-	# Suck in until we find the closing paren (or the end of line)
-	pos $t->{line} = $t->{line_cursor};
-	die "regex should always match" if $t->{line} !~ m/\G(.*?\n?(?:\)|$))/gc;
-	$t->{token}->{content} .= $1;
-	$t->{line_cursor} += length $1;
-	# Shortcut if end of line
-	return 0 unless $1 =~ /\)$/;
-	# Found the closing paren
-	$t->_finalize_token->__TOKENIZER__on_char( $t );
-}
+our @ISA = "PPI::Token::Quote::Literal";
 =pod

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Quote/Double.pm CHANGED Viewed

@@ -34,7 +34,7 @@ use Params::Util                     qw{_INSTANCE};
 use PPI::Token::Quote                ();
 use PPI::Token::_QuoteEngine::Simple ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Simple

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Quote/Interpolate.pm CHANGED Viewed

@@ -30,7 +30,7 @@ use strict;
 use PPI::Token::Quote ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Quote/Literal.pm CHANGED Viewed

@@ -30,7 +30,7 @@ use strict;
 use PPI::Token::Quote              ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full
@@ -47,8 +47,9 @@ our @ISA = qw{
 sub string {
 	my $self     = shift;
 	my @sections = $self->_sections;
-	my $str      = $sections[0];
-	substr( $self->{content}, $str->{position}, $str->{size} );
+	return unless    #
+	  my $str = $sections[0];
+	substr( $self->{content}, $str->{position}, $str->{size} );
 }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Quote/Single.pm CHANGED Viewed

@@ -36,7 +36,7 @@ use strict;
 use PPI::Token::Quote ();
 use PPI::Token::_QuoteEngine::Simple ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Simple

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Quote.pm CHANGED Viewed

@@ -49,7 +49,7 @@ honor of its own token class (L<PPI::Token::HereDoc>).
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike/Backtick.pm CHANGED Viewed

@@ -30,7 +30,7 @@ use strict;
 use PPI::Token::QuoteLike            ();
 use PPI::Token::_QuoteEngine::Simple ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Simple

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike/Command.pm CHANGED Viewed

@@ -30,7 +30,7 @@ use strict;
 use PPI::Token::QuoteLike          ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike/Readline.pm CHANGED Viewed

@@ -39,7 +39,7 @@ use strict;
 use PPI::Token::QuoteLike          ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike/Regexp.pm CHANGED Viewed

@@ -33,7 +33,7 @@ use strict;
 use PPI::Token::QuoteLike          ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike/Words.pm CHANGED Viewed

@@ -29,7 +29,7 @@ use strict;
 use PPI::Token::QuoteLike          ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/QuoteLike.pm CHANGED Viewed

@@ -48,7 +48,7 @@ PPI's quote engine.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp/Match.pm CHANGED Viewed

@@ -44,7 +44,7 @@ use strict;
 use PPI::Token::Regexp             ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp/Substitute.pm CHANGED Viewed

@@ -34,7 +34,7 @@ use strict;
 use PPI::Token::Regexp             ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp/Transliterate.pm CHANGED Viewed

@@ -38,7 +38,7 @@ use strict;
 use PPI::Token::Regexp             ();
 use PPI::Token::_QuoteEngine::Full ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = qw{
 	PPI::Token::_QuoteEngine::Full

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Regexp.pm CHANGED Viewed

@@ -45,7 +45,7 @@ The following methods are inherited by this class' offspring:
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Separator.pm CHANGED Viewed

@@ -35,7 +35,7 @@ parent classes.
 use strict;
 use PPI::Token::Word ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token::Word";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Structure.pm CHANGED Viewed

@@ -31,7 +31,7 @@ L<PPI::Token> and L<PPI::Element> parent classes.
 use strict;
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Symbol.pm CHANGED Viewed

@@ -31,7 +31,7 @@ use strict;
 use Params::Util qw{_INSTANCE};
 use PPI::Token   ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Unknown.pm CHANGED Viewed

@@ -32,7 +32,7 @@ use PPI::Token     ();
 use PPI::Exception ();
 use PPI::Singletons qw' %MAGIC $CURLY_SYMBOL ';
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Whitespace.pm CHANGED Viewed

@@ -45,7 +45,7 @@ use strict;
 use Clone      ();
 use PPI::Token ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/Word.pm CHANGED Viewed

@@ -39,7 +39,7 @@ use strict;
 use PPI::Token ();
 use PPI::Singletons qw' %OPERATOR %QUOTELIKE %KEYWORDS ';
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = "PPI::Token";
@@ -305,10 +305,12 @@ sub __TOKENIZER__commit {
 				# attribute operator doesn't directly
 				# touch the object name already works.
 				$token_class = 'Word';
-			} else {
+			} elsif ( !($tokens[0] and $tokens[0]->isa('PPI::Token::Operator')) ) {
 				$word .= $1;
 				$t->{line_cursor} += length($1);
 				$token_class = 'Label';
+			} else {
+				$token_class = 'Word';
 			}
 		} elsif ( $word eq '_' ) {
 			$token_class = 'Magic';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine/Full.pm CHANGED Viewed

@@ -7,7 +7,7 @@ use Clone                    ();
 use Carp                     ();
 use PPI::Token::_QuoteEngine ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = 'PPI::Token::_QuoteEngine';
@@ -43,6 +43,9 @@ my %QUOTES = (
 	# used yet, since I'm not sure on the context differences between
 	# this and the trinary operator, but it's here for completeness.
 	'?'   => { operator => undef, braced => 0,     separator => '?',   _sections => 1, modifiers => 1 },
+	# parse prototypes as a literal quote
+	'('   => { operator => undef, braced => 1,     separator => undef, _sections => 1, },
 );
@@ -70,9 +73,8 @@ sub new {
 	$self->{modifiers} = {} if $self->{modifiers};
 	# Handle the special < base
-	if ( $init eq '<' ) {
-		$self->{sections}->[0] = Clone::clone( $SECTIONS{'<'} );
-	}
+	$self->{sections}[0] = Clone::clone $SECTIONS{'<'} if $init eq '<';
+	$self->{sections}[0] = Clone::clone $SECTIONS{'('} if $init eq '(';
 	$self;
 }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine/Simple.pm CHANGED Viewed

@@ -5,7 +5,7 @@ package PPI::Token::_QuoteEngine::Simple;
 use strict;
 use PPI::Token::_QuoteEngine ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = 'PPI::Token::_QuoteEngine';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token/_QuoteEngine.pm CHANGED Viewed

@@ -33,7 +33,7 @@ If -E<gt>fill returns true, finalise the token.
 use strict;
 use Carp ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Token.pm CHANGED Viewed

@@ -25,7 +25,7 @@ use Params::Util   qw{_INSTANCE};
 use PPI::Element   ();
 use PPI::Exception ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA = 'PPI::Element';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Tokenizer.pm CHANGED Viewed

@@ -87,7 +87,7 @@ use PPI::Token      ();
 use PPI::Exception  ();
 use PPI::Exception::ParserRejection ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 # The x operator cannot follow most Perl operators, implying that
 # anything beginning with x following an operator is a word.
@@ -573,8 +573,8 @@ sub _process_next_char {
 		return undef;
 	}
-	# Increment the counter and check for end of line
-	return 0 if ++$self->{line_cursor} >= $self->{line_length};
+    $self->{line_cursor}++;
+    return 0 if $self->_at_line_end;
 	# Pass control to the token class
 	my $result;
@@ -614,6 +614,11 @@ sub _process_next_char {
 	1;
 }
+sub _at_line_end {
+    my ($self) = @_;
+    return $self->{line_cursor} >= $self->{line_length};
+}

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Transform/UpdateCopyright.pm CHANGED Viewed

@@ -31,7 +31,7 @@ use strict;
 use Params::Util   qw{_STRING};
 use PPI::Transform ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Transform.pm CHANGED Viewed

@@ -21,7 +21,7 @@ use List::Util    ();
 use PPI::Document ();
 use Params::Util  qw{_INSTANCE _CLASS _CODE _SCALAR0};
-our $VERSION = '1.276';
+our $VERSION = '1.277';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/Util.pm CHANGED Viewed

@@ -7,7 +7,7 @@ use Exporter     ();
 use Digest::MD5  ();
 use Params::Util qw{_INSTANCE _SCALAR0 _ARRAY0};
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our @ISA       = 'Exporter';
 our @EXPORT_OK = qw{ _Document _slurp };

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI/XSAccessor.pm CHANGED Viewed

@@ -7,7 +7,7 @@ use 5.006;
 use strict;
 use PPI ();
-our $VERSION = '1.276';
+our $VERSION = '1.277';

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/PPI.pm CHANGED Viewed

@@ -6,7 +6,7 @@ use 5.006;
 use strict;
 # Set the version for CPAN
-our $VERSION = '1.276';
+our $VERSION = '1.277';
 our ( $XS_COMPATIBLE, @XS_EXCLUDE ) = ( '0.845' );

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/AbstractCommandHandler.pm CHANGED Viewed

@@ -29,13 +29,13 @@ sub iterate {
     for (my $i=0; $i< $length; $i++){
         my $payload_item = $command->{payload}[$i];
         if(blessed($payload_item) and $payload_item->isa('Javonet::Sdk::Core::PerlCommand')
-            and !($payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Response'))) {
+            and !($payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Value'))) {
             $command->{payload}[$i] = Javonet::Core::Handler::HandlerDictionary::get_handler(
                 $command->{payload}[$i]->{command_type})->handle_command($command->{payload}[$i]
             );
         }
         if(blessed($payload_item) and $payload_item->isa('Javonet::Sdk::Core::PerlCommand')
-            and $payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Response')) {
+            and $payload_item->{command_type} eq Javonet::Sdk::Core::PerlCommandType::get_command_type('Value')) {
             $command->{payload}[$i] = $payload_item->{payload}[0];
         }
     }

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/ValueHandler.pm ADDED Viewed

@@ -0,0 +1,30 @@
+package Javonet::Core::Handler::CommandHandler::ValueHandler;
+use aliased 'Javonet::Core::Handler::PerlHandler' => 'PerlHandler';
+use strict;
+use warnings FATAL => 'all';
+use Moose;
+use lib 'lib';
+use Nice::Try;
+use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
+extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
+sub new {
+    my $class = shift;
+    my $self = {
+        required_parameters_count => 1
+    };
+    return bless $self, $class;
+}
+sub process {
+    my ($self, $command) = @_;
+    try {
+        return $command->{payload}[0];
+    }
+    catch ( $e ) {
+        return Exception->new($e);
+    }
+}
+no Moose;
+1;