cpanfile}) { if ($self->{json}) { # TODO: feature support (how should we express it?) eval { require JSON::PP } or die "requires JSON::PP"; print JSON::PP->new->pretty(1)->canoni