sub delete_field($) {
        my $self = shift;
        my $deleter = shift;

        my @scratch;
        for ( @{$self->{_fields}} ) {
                push( @scratch, $_ ) unless ( $deleter == $_ );
        }
        @{$self->{_fields}} = @scratch;
}