croak "new needs database name (isisdb) as argument!" unless ({@_}->{isisdb});
- foreach my $v (qw{isisdb debug include_deleted hash_filter}) {
- $self->{$v} = {@_}->{$v};
+ foreach my $v (qw{isisdb debug include_deleted hash_filter join_subfields_with}) {
+ $self->{$v} = {@_}->{$v} if defined({@_}->{$v});
}
my @isis_files = grep(/\.(FDT|MST|XRF|CNT)$/i,glob($self->{isisdb}."*"));
my $row = $self->fetch($mfn) || return;
- my $j_rs = $arg->{join_subfields_with};
+ my $j_rs = $arg->{join_subfields_with} || $self->{join_subfields_with};
$j_rs = $self->{join_subfields_with} unless(defined($j_rs));
my $i_sf = $arg->{include_subfields};
Added C<hash_filter> to L</to_hash>
+Fixed bug with documented C<join_subfields_with> in L</new> which wasn't
+implemented
+
=item 0.22
Added field number when calling C<hash_filter>