Improve support for 'empty' parentheses

When the user uses "parens => ''" in format_list.
master
Ben Moon 2016-06-14 18:41:37 +01:00
parent e3cd02900c
commit c24ecdf3d8
2 changed files with 8 additions and 0 deletions

View File

@ -107,6 +107,10 @@ sub format_list {
my $parens = $options{parens} // '[]';
@parens = ref $parens eq 'ARRAY'
? @$parens : split '', $parens;
# In the case the user uses parens => '' we don't want to
# display *any* parentheses, so we need to have 'fake'
# parentheses.
@parens = ('', '') if "@parens" eq '';
return $parens[0] . join(', ', map {
ref $_ eq 'ARRAY' ? format_list($_, %options) : $_
} @$items) . $parens[$#parens];

View File

@ -188,6 +188,10 @@ subtest format_list => sub {
[1, 2, 3] => '{1, 2, 3}',
[1, [2, 3]] => '{1, {2, 3}}',
],
'' => [
[1, 2, 3] => '1, 2, 3',
[1, [2, 3]] => '1, 2, 3',
],
);
foreach (pairs @tcs) {
my ($parens, $cases) = @$_;