MessagePack working in a weird way. about msgpack-perl HOT 5 CLOSED

package GenericPacker;
use strict;
use warnings;
use Data::MessagePack;

sub pack_bean {
    my (@stream)  = @_;
    my $msgpack = Data::MessagePack->new();
    my $needed = 1;
    $msgpack->prefer_integer();
    my $packed_bean = $msgpack->pack( \@stream );
    return $packed_bean;
}

sub unpack_bean {
    my ($unpackable_bean) = @_;
    my $msgpack           = Data::MessagePack->new()->utf8(1);
    return $msgpack->unpack($unpackable_bean);
}
1;

#!/usr/bin/perl -w
use strict;
use warnings;
use Encode qw(decode encode);
use Test::More tests => 1;
use Data::Dumper;
my $actual = TestHelper::create_sample_data();
my $packed_bean = GenericPacker::pack_bean($actual);
my $final = GenericPacker::unpack_bean($packed_bean);
ok(1);

package MainInput;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = {
                 _field1                => shift,
                 _field2 => shift,
                 _field3               => shift
    };
    bless $self, $class;
    return $self;
}

sub set_field1 {
    my ( $self, $field1 ) = @_;
    $self->{_field1} = $field1 if defined $field1;
}

sub get_field1 {
    my ($self) = @_;
    return $self->{_field1};
}

sub has_field1 {
    my ($self) = @_;
    if ( defined $self->{_field1} ) {
        return 1;
    } else {
        return 0;
    }
}

sub set_field2 {
    my ( $self, $field2 ) = @_;
    $self->{_field2} = $field2
      if defined $field2;
}

sub get_field2 {
    my ($self) = @_;
    return $self->{_field2};
}

sub has_field2 {
    my ($self) = @_;
    if ( defined $self->{_field2} ) {
        return 1;
    } else {
        return 0;
    }
}

sub set_field3 {
    my ( $self, $field3 ) = @_;
    $self->{_field3} = $field3 if defined $field3;
}

sub get_field3 {
    my ($self) = @_;
    return $self->{_field3};
}

sub has_field3 {
    my ($self) = @_;
    if ( defined $self->{_field3} ) {
        return 1;
    } else {
        return 0;
    }
}
1;

package FieldInput;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = {
                 _field1 => shift,
                 _field2 => shift
    };
    bless $self, $class;
    return $self;
}

sub set_field1 {
    my ( $self, $field1 ) = @_;
    $self->{_field1} = $field1 if defined $field1;
}

sub get_field1 {
    my ($self) = @_;
    return $self->{_field1};
}

sub has_field1 {
    my ($self) = @_;
    if ( defined $self->{_field1} ) {
        return 1;
    } else {
        return 0;
    }
}

sub set_field2 {
    my ( $self, $field2 ) = @_;
    $self->{_field2} = $field2
      if defined $field2;
}

sub get_field2 {
    my ($self) = @_;
    return $self->{_field2};
}

sub has_field2 {
    my ($self) = @_;
    if ( defined $self->{_field2} ) {
        return 1;
    } else {
        return 0;
    }
}
1;

package TestHelper;
use constant FIELD1 => 1;
use constant FIELD2 => 2;
use constant FIELD3 => 3;

sub create_sample_input {
    my $actual = MainInput->new();
    $actual->set_field2( "SomeText" );
    my $rpc = FieldInput->new();
    $rpc->set_operation( "SomeText" );
    $rpc->set_service( "SomeText" );
    $actual->set_field1($rpc);
    my $auth = FieldInput->new();
    $auth->set_encrypted(1);
    $auth->set_signed(1);
    $actual->set_field3($auth);
    return $actual;
}

sub create_sample_value {
    my $input = create_sample_input();

    @stream = ();
    push @stream, [];
    if($input->has_field1()) {
        push @stream, [FIELD1, [[], [FIELD1, $input->get_field1()->get_field1()], [FIELD2, $input->get_field1()->get_field2()]]];
    }
    if($input->has_field2()) {
        push @stream, [FIELD2, $input->get_field2()];
    }
    if($input->has_field3()) {
        push @stream, [FIELD3, [[], [FIELD1, $input->get_field3()->get_field1()], [FIELD2, $input->get_field3()->get_field2()]]];
    }

    return \@stream;
}
1;