DualIndexHashObject: hide _name key from set output

This commit is contained in:
Pragmatic Software 2020-01-25 20:35:56 -08:00
parent c586a08db6
commit 791fd4b660
1 changed files with 1 additions and 0 deletions

View File

@ -222,6 +222,7 @@ sub set {
my $result = "[$name1] $name2 keys:\n";
my $comma = '';
foreach my $key (sort keys %{ $self->{hash}->{$lc_primary_index}->{$lc_secondary_index} }) {
next if $key eq '_name';
$result .= $comma . "$key => " . $self->{hash}->{$lc_primary_index}->{$lc_secondary_index}->{$key};
$comma = ";\n";
}