view release on metacpan or  search on metacpan

t/09_wantarray.t  view on Meta::CPAN

use strict;
use warnings;
use FindBin;

use Test::More;
use AWS::XRay qw/ capture /;

capture "myApp", sub {
    ok !defined(wantarray), 'void context';
};

my $ret = capture "myApp", sub {
    ok defined(wantarray) && !wantarray, 'scalar context';
};

my @ret = capture "myApp", sub {
    ok defined(wantarray) && wantarray, 'list context';
};

done_testing;