|
my ( $types , $wiretypes , $labels , $complex_types );
BEGIN
{
$types = {
TYPE_DOUBLE => 1,
TYPE_FLOAT => 2,
TYPE_INT64 => 3,
TYPE_UINT64 => 4,
TYPE_INT32 => 5,
TYPE_FIXED64 => 6,
TYPE_FIXED32 => 7,
TYPE_BOOL => 8,
TYPE_STRING => 9,
TYPE_GROUP => 10,
TYPE_MESSAGE => 11,
TYPE_BYTES => 12,
TYPE_UINT32 => 13,
TYPE_ENUM => 14,
TYPE_SFIXED32 => 15,
TYPE_SFIXED64 => 16,
TYPE_SINT32 => 17,
TYPE_SINT64 => 18,
};
$labels = {
LABEL_OPTIONAL => 1,
LABEL_REQUIRED => 2,
LABEL_REPEATED => 3,
};
$wiretypes = {
WIRETYPE_VARINT => 0,
WIRETYPE_FIXED64 => 1,
WIRETYPE_LENGTH_DELIMITED => 2,
WIRETYPE_START_GROUP => 3,
WIRETYPE_END_GROUP => 4,
WIRETYPE_FIXED32 => 5,
};
$complex_types = {
MESSAGE => 1,
GROUP => 2,
ENUM => 3,
ONEOF => 4,
};
}
use vars qw/@EXPORT_OK %EXPORT_TAGS/ ; $EXPORT_TAGS { 'types' } = [ keys %$types ];
push @{ $EXPORT_TAGS { 'all' }}, keys %$types ;
push @EXPORT_OK , keys %$types ;
$EXPORT_TAGS { 'wiretypes' } = [ keys %$wiretypes ];
push @{ $EXPORT_TAGS { 'all' }}, keys %$wiretypes ;
push @EXPORT_OK , keys %$wiretypes ;
$EXPORT_TAGS { 'labels' } = [ keys %$labels ];
push @{ $EXPORT_TAGS { 'all' }}, keys %$labels ;
push @EXPORT_OK , keys %$labels ;
$EXPORT_TAGS { 'complex_types' } = [ keys %$complex_types ];
push @{ $EXPORT_TAGS { 'all' }}, keys %$complex_types ;
push @EXPORT_OK , keys %$complex_types ;
1;
|