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