|
|
@ -27,6 +27,7 @@ sub new { |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
my @fields = $self->fields(); |
|
|
|
my @fields = $self->fields(); |
|
|
|
|
|
|
|
$self->{_fieldcnt} = scalar @fields; |
|
|
|
foreach my $field (@fields) { |
|
|
|
foreach my $field (@fields) { |
|
|
|
$self->{$field} = ($opts{defaults}) |
|
|
|
$self->{$field} = ($opts{defaults}) |
|
|
|
? $FIELDS{$field}->{value} |
|
|
|
? $FIELDS{$field}->{value} |
|
|
|