=head1 VERSION
-Version 1.001
+Version 1.002
=cut
-our $VERSION = '1.001';
+our $VERSION = '1.002';
=head1 SYNOPSIS
sub mods {
my ($self, $field) = @_;
return undef unless $self->has($field);
+ return undef unless (%{ $self->{fields}{$field}{mods} });
return $self->{fields}{$field}{mods};
}
# test mod names if we have a set to check against
if (defined $self->{conf}{mods}) {
- for my $mod ( @{$map->{mods}} ) {
+ for my $mod ( keys %{$map->{mods}} ) {
die "Modifier '$mod' not allowed\n"
unless $self->{conf}{mods}{$mod};
}