sub pack {
        my $self = shift;
        return join ':',
               map $self->{$_},
               keys %{ $self->{_permitted} };
    }