-#
-# pc59 entity encoding and decoding
-#
-sub enc_pc59
-{
- my $self = shift;
- my $sort = shift || 'N';
- my $out = "$sort$self->{flag}$self->{call}";
- if ($self->{build}) {
- $out .= "b$self->{build}";
- } elsif ($self->{version}) {
- $out .= "v$self->{version}";
- }
-}