sub pack {
        my $self=shift;
        my $record=join(':', @{$self}{keys %{$self->{_permitted}}});
        return $record;
  }