package DataDecoder;
use Moose;

has 'parserArray_type_01_ref' => (
    is => 'ro',
    isa => 'ArrayRef',
    builder => 'get_type_01_ref', 
    lazy => 1
);

sub get_type_01_ref {
    my $array_ref = [ 
        {
            name => 'YEAR',
            type => 'CHAR',
            len => 2,
            description => sub{0}
        },
        {
            name => 'MONTH',
            type => 'CHAR',
            len => 2,
            description => sub{0}
        },
        {
            name => 'DAY',
            type => 'CHAR',
            len => 2,
            description => sub{0}
        },
        {
            name => 'HOUR',
            type => 'CHAR',
            len => 2,
            description => sub{0}
        },
        {
            name => sub{
                my $data = uc shift;
                my %SUD_DATA = ('98' => 'TYPE1', '64' => 'TYPE2');
                (defined $SUD_DATA{$data})? $SUD_DATA{$data} : $data
                # $data
            },
            type => 'HEX',
            len => 1,
            description => sub{
                my $data = uc shift;
                my %SUD_DATA = ('98' => 'TYPE1', '64' => 'TYPE2');
                (defined $SUD_DATA{$data})? $SUD_DATA{$data} : $data
                # $data
            },
        }
       
    ];

    return $array_ref;
}

1;

##</code><code>##

#!/usr/bin/env perl

use DataDecoder;

my $dd = DataDecoder->new();

my @array = @{$dd->parserArray_type_01_ref};

use Data::Dumper;
print Dumper @array;
exit;