} $fh->print("\n"); } } } 1; } sub print_all_json { my ($self, $desc, $v, %opt) = @_; my ($indent, $fh, $skip_invalid) = @opt{qw(indent fh