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

##</code><code>##

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

##</code><code>##

{
	my @order = qw( name price description );
	sub order {
		return @order;
	}
}

##</code><code>##

sub DESTROY {
	# even if it's empty, it won't hit AUTOLOAD
}