… | |
… | |
430 | |
430 | |
431 | our @EXPORT_OK = map @$_, values %EXPORT_TAGS; |
431 | our @EXPORT_OK = map @$_, values %EXPORT_TAGS; |
432 | |
432 | |
433 | $EXPORT_TAGS{all} = \@EXPORT_OK; |
433 | $EXPORT_TAGS{all} = \@EXPORT_OK; |
434 | $EXPORT_TAGS{const} = [map @{ $EXPORT_TAGS{$_} }, qw(const_index const_asn)]; |
434 | $EXPORT_TAGS{const} = [map @{ $EXPORT_TAGS{$_} }, qw(const_index const_asn)]; |
435 | use Data::Dump; ddx \%EXPORT_TAGS; |
|
|
436 | |
435 | |
437 | =head1 PROFILES |
436 | =head1 PROFILES |
438 | |
437 | |
439 | While any BER data can be correctly encoded and decoded out of the box, it |
438 | While any BER data can be correctly encoded and decoded out of the box, it |
440 | can be inconvenient to have to manually decode some values into a "better" |
439 | can be inconvenient to have to manually decode some values into a "better" |