Select Code to Download

 # locations
    _locations          => [ ['????']  ,   'read.write.noinit.array'  
+ ],         
...
        # licrinfo
    _licr_info          => [ ['????']  ,   'read.write.noinit.array'  
+ ],

# Added Type handler
    sub _check_type {
        my ($self,$attribute,$type) = @_;
        $_attribute_properties{$attribute}[1] =~ /$type/;
    }