sub delete_field { my $self = shift; my $delete_field = shift; my $before_deletion = @{$self->{_fields}}; @{$self->{_fields}} = grep { $delete_field ne $_ } @{$self->{_fields}}; return $before_deletion - @{$self->{_fields}}; }