package DataDecoder;
use Moose;

...
#######need to add something like this#######
my @parserArray_type_01 = (
	...
	{
		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
		},
	}
	
);
...