sub pack {
	my $self = shift;
	my @order = $self->order();
	
	my $result = join(':', @$self{@order});
	return $result;
}