先澄清你的子问题：TO_JSON里的allow_blessed和convert_blessed完全多余！ #

你当前的TO_JSON写法存在一个关键误区：TO_JSON方法不应该自己调用JSON->encode。当外部JSON编码器开启convert_blessed时，它遇到blessed对象会自动调用该对象的TO_JSON方法，并且期望这个方法返回可序列化的数据结构（比如哈希、数组、基础类型），而不是已经编码好的JSON字符串。

你现在在TO_JSON里实例化JSON对象并编码，返回的是字符串，外部编码器会把这个字符串直接转义后嵌入最终JSON，这完全不是你想要的合并效果。而且你的PerfData内部没有嵌套的blessed组件，所以在TO_JSON里设置allow_blessed和convert_blessed毫无意义——这些配置应该放在顶层的JSON编码器里，也就是你主类_JSON_string函数中的那个JSON实例。

修正后的TO_JSON应该是这样（先不考虑格式化参数）：

sub TO_JSON($) {
    my $self = shift;
    # 假设PerfData类里定义了对应数组槽位的标签常量
    my @FIELDS = qw(label value unit warn crit min max);
    my %hash;
    @hash{@FIELDS} = @$self;
    return \%hash;
}

这样外部编码器处理PerfData对象时，会自动调用这个方法拿到带标签的哈希，再统一完成编码和格式化。

主问题：传递格式化参数给内部对象的序列化 #

修正TO_JSON的写法后，格式化参数只需要在顶层编码器里设置一次就够了！因为所有内部对象的TO_JSON都返回数据结构，最终由顶层编码器统一处理编码、缩进、UTF8等规则，完全不需要把参数传递给TO_JSON——这才是convert_blessed的正确用法。

如果你的业务场景确实需要让内部对象的序列化逻辑依赖外部格式化参数（比如缩进时额外返回可读字符串），可以用以下两种实用方案：

方案1：利用动态作用域传递参数 #

通过Perl的local关键字设置动态作用域变量，让内部TO_JSON可以访问：

# 修改主类的_JSON_string函数
sub _JSON_string($$) {
    my $data = shift;
    my $indent = shift;
    # 设置动态作用域变量，PerfData类可以直接访问
    local $PerfData::JSON_INDENT = $indent;
    
    my $JSON = JSON->new();
    $JSON->utf8(1);
    $JSON->allow_blessed(1);
    $JSON->convert_blessed(1);
    if ($indent) {
        $JSON->indent(1);
        $JSON->indent_length($indent);
    }
    return $JSON->encode($data);
}

# 在PerfData的TO_JSON里使用参数
sub TO_JSON($) {
    my $self = shift;
    my @FIELDS = qw(label value unit warn crit min max);
    my %hash;
    @hash{@FIELDS} = @$self;
    
    # 如果开启缩进，额外添加as_string的结果
    if ($PerfData::JSON_INDENT) {
        $hash{_human_readable} = $self->as_string;
    }
    return \%hash;
}

这种方案不需要修改对象间的引用关系，灵活且侵入性低。

方案2：临时存储参数到主对象 #

如果你的MonitoringParser对象可以临时存储格式化参数，PerfData可以通过反向引用访问：

# 修改MonitoringParser的JSON_string方法
sub JSON_string($;$) {
    my $self = shift;
    my $indent = shift;
    # 临时存储缩进参数到主对象
    $self->{_json_indent} = $indent;
    
    my $hash = {
        code => $self->[0],
        status => $self->[1],
        message => $self->[2],
        perf_data => $self->[4],
    };
    my $result = _JSON_string($hash, $indent);
    # 清理临时属性，避免污染对象状态
    delete $self->{_json_indent};
    return $result;
}

# PerfData的TO_JSON方法（需要提前建立与主对象的引用）
sub TO_JSON($) {
    my $self = shift;
    my @FIELDS = qw(label value unit warn crit min max);
    my %hash;
    @hash{@FIELDS} = @$self;
    
    # 从主对象获取缩进参数
    if ($self->{monitoring_parser}->{_json_indent}) {
        $hash{_human_readable} = $self->as_string;
    }
    return \%hash;
}

实现数组转带标签哈希的需求 #

如前面的代码示例，你可以在PerfData类里定义一个常量数组，对应每个数组槽位的标签，然后在TO_JSON里把blessed数组转换成哈希：

# 在PerfData类里定义常量（更规范的写法）
use constant FIELDS => qw(label value unit warn crit min max);

sub TO_JSON($) {
    my $self = shift;
    my %hash;
    # 用常量的元素作为键，数组元素作为值
    @hash{FIELDS()} = @$self;
    # 可选：把undef统一处理为JSON的null（编码器会自动处理，但手动显式更清晰）
    foreach my $key (FIELDS()) {
        $hash{$key} = undef unless defined $hash{$key};
    }
    return \%hash;
}

这样序列化后的JSON中，PerfData对象会变成可读性更强的带键哈希，比如：

{
  "avg": {
    "label": "avg",
    "value": 0.00145,
    "unit": null,
    "warn": null,
    "crit": null,
    "min": 0,
    "max": null
  }
}

最终简化版完整示例 #

MonitoringParser类 #

package MonitoringParser;
use JSON;
use PerfData;

sub _JSON_string($$) {
    my $data = shift;
    my $indent = shift;
    local $PerfData::JSON_INDENT = $indent;
    
    my $JSON = JSON->new();
    $JSON->utf8(1);
    $JSON->allow_blessed(1);
    $JSON->convert_blessed(1);
    if ($indent) {
        $JSON->indent(1);
        $JSON->indent_length($indent);
    }
    return $JSON->encode($data);
}

sub JSON_string($;$) {
    my $self = shift;
    my $indent = shift;
    my $hash = {
        code => $self->[0],
        status => $self->[1],
        message => $self->[2],
        perf_data => $self->[4],
    };
    return _JSON_string($hash, $indent);
}

# 其他业务方法...
1;

PerfData类 #

package PerfData;
use constant FIELDS => qw(label value unit warn crit min max);

sub TO_JSON($) {
    my $self = shift;
    my %hash;
    @hash{FIELDS()} = @$self;
    
    if ($PerfData::JSON_INDENT) {
        $hash{_human_readable} = $self->as_string;
    }
    return \%hash;
}

sub as_string($) {
    my $self = shift;
    # 你的as_string实现逻辑...
    return sprintf('label="%s", value=%s', $self->[0], $self->[1]);
}

# 其他业务方法...
1;

调用$mp->JSON_string(4)就能得到格式化后的完整JSON，PerfData对象会自动转成带标签的哈希，整个JSON的格式统一由顶层编码器管控。

内容的提问来源于stack exchange，提问作者U. Windl