sub delete_field
{
     my $self      = shift;
     my ($deleter) = @_;
     my $scrubbed  = 0;

     @{$self->{_fields}} =
        grep { !(($deleter eq $_) && ++$scrubbed) }
             @{$self->{_fields}};
 
     return $scrubbed;                
}