Steven Haryanto


Perinci::Result::Format - Format envelope result


version 0.36



This module formats enveloped result to YAML, JSON, etc. It uses Data::Format::Pretty for the backend. It is used by other Perinci modules like Perinci::CmdLine and Perinci::Access::HTTP::Server.

The default supported formats are:

  • json

    Using Data::Format::Pretty::YAML.

  • text-simple

    Using Data::Format::Pretty::SimpleText.

  • text-pretty

    Using Data::Format::Pretty::Text.

  • text

    Using Data::Format::Pretty::Console.

  • yaml

    Using Data::Format::Pretty::YAML.


%Perinci::Result::Format::Formats => HASH

Contains a mapping between format names and Data::Format::Pretty::* module names + MIME type.

$Enable_Decoration => BOOL (default: 1)

Decorations include color or other markup, which might make a data structure like JSON or YAML string become invalid JSON/YAML. This should be turned off if one wants to send the formatting over network.

$Enable_Cleansing => BOOL (default: 0)

If enabled, cleansing will be done to data to help make sure that data does not contain item that cannot be handled by formatter. for example, JSON format cannot handle circular references or complex types other than hash/array.


None is currently exported/exportable.

format($res, $format) => STR

Format enveloped result $res with format named $format.

Result metadata ($res->[3]) is also checked for key named result_format_options. The value should be a hash like this { FORMAT_NAME => OPTS, ... }. This way, function results can specify the details of formatting. An example enveloped result:

 [200, "OK", ["foo", "bar", "baz"], {
     result_format_options => {
         "text"        => {list_max_columns=>1},
         "text-pretty" => {list_max_columns=>1},

The above result specifies that if it is displayed using text or text-pretty format, it should be displayed in one columns instead of multicolumns.


How to list supported formats?


 my @supported_formats = keys %Perinci::Result::Format::Formats;

How to add support for new formats?

First make sure that Data::Format::Pretty::<FORMAT> module is available for your format. Look on CPAN. If it's not, i't also not hard to create one.

Then, add your format to %Perinci::Result::Format::Formats hash:

 use Perinci::Result::Format;

 # this means format named 'xml' will be handled by Data::Format::Pretty::XML
 $Perinci::Result::Format::Formats{xml} = ['XML', 'text/xml'];




Please visit the project's homepage at


Source repository is at


Please report any bugs or feature requests on the bugtracker website

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.


Steven Haryanto <>


This software is copyright (c) 2014 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.