| Perinci::Object::EnvResultMulti(3pm) | User Contributed Perl Documentation | Perinci::Object::EnvResultMulti(3pm) |
Perinci::Object::EnvResultMulti - Represent enveloped result (multistatus)
This document describes version 0.310 of Perinci::Object::EnvResultMulti (from Perl distribution Perinci-Object), released on 2018-10-18.
use Perinci::Object::EnvResultMulti;
use Data::Dump; # for dd()
sub myfunc {
...
# if unspecified, the default status will be [200, "Success/no items"]
my $envres = Perinci::Object::EnvResultMulti->new;
# then you can add result for each item
$envres->add_result(200, "OK", {item_id=>1});
$envres->add_result(202, "OK", {item_id=>2, note=>"blah"});
$envres->add_result(404, "Not found", {item_id=>3});
...
# if you add a success status, the overall status will still be 200
# if you add a non-success staus, the overall status will be 207, or
# the non-success status (if no success has been added)
# finally, return the result
return $envres->as_struct;
# the result from the above will be: [207, "Partial success", undef,
# {results => [
# {success=>200, message=>"OK", item_id=>1},
# {success=>201, message=>"OK", item_id=>2, note=>"blah"},
# {success=>404, message=>"Not found", item_id=>3},
# ]}]
} # myfunc
This class is a subclass of Perinci::Object::EnvResult and provides a convenience method when you want to use multistatus/detailed per-item results (specified in Rinci 1.1.63: "results" result metadata property). In this case, response status can be 200, 207, or non-success. As you add more per-item results, this class will set/update the overall response status for you.
Create a new object from $res enveloped result array. If $res is not specified, the default is "[200, "Success/no items"]".
Add an item result.
Please visit the project's homepage at <https://metacpan.org/release/Perinci-Object>.
Source repository is at <https://github.com/perlancar/perl-Perinci-Object>.
Please report any bugs or feature requests on the bugtracker website <https://rt.cpan.org/Public/Dist/Display.html?Name=Perinci-Object>
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.
Perinci::Object
Perinci::Object::EnvResult
perlancar <perlancar@cpan.org>
This software is copyright (c) 2018, 2017, 2016, 2015, 2014, 2013, 2012, 2011 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
| 2018-11-25 | perl v5.28.0 |