janik/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

AttributeSet helper: skip wantarray

Browse source
This commit is contained in:
Graham Christensen 2021-10-20 12:52:34 -04:00
parent d2f03ca050
commit 30a7f068b7
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lib/Hydra/Helper/AttributeSet.pm
View file

@ -50,7 +50,7 @@ sub splitPath {
sub enumerate { sub enumerate {
my ($self) = @_; my ($self) = @_;
my @paths = sort { length($a) <=> length($b) } @{$self->{"paths"}}; my @paths = sort { length($a) <=> length($b) } @{$self->{"paths"}};
return wantarray ? @paths : \@paths; return @paths;
} }
1; 1;

3
t/Helper/attributeset.t
View file

@ -31,8 +31,9 @@ $attrs->registerValue("foo");
$attrs->registerValue("bar.baz.tux"); $attrs->registerValue("bar.baz.tux");
$attrs->registerValue("bar.baz.bux.foo.bar.baz"); $attrs->registerValue("bar.baz.bux.foo.bar.baz");
my @enumerated = $attrs->enumerate();
is( is(
\@{$attrs->enumerate()}, \@enumerated,
[ [
# "foo": skipped since we're registering values, and we # "foo": skipped since we're registering values, and we
# only want to track nested attribute sets. # only want to track nested attribute sets.