'exists_fn' => sub { my $lhs = get_next(); my %set; @set{ map { $id->($_) } @$lhs } = @$lhs; for (get_rand(), get_rand(), get_rand(), get_rand()) { my @int = grep { exists $set{$id->($_)} } @$_; return unless @int; undef %set; @set{ map { $id->($_) } @int } = @int; } return keys %set; }, 'slice_defined_fn' => sub { my $lhs = get_next(); my %set; @set{ map { $id->($_) } @$lhs } = @$lhs; for (get_rand(), get_rand(), get_rand(), get_rand()) { my @int = grep { defined } @set{ map { $id->($_) } @$_ }; return unless @int; undef %set; @set{ map { $id->($_) } @int } = @int; } return keys %set; },
});
1 POD Error
The following errors were encountered while parsing the POD:
Unknown directive: =head
To install Set::Functional, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Set::Functional
CPAN shell
perl -MCPAN -e shell install Set::Functional
For more information on module installation, please visit the detailed CPAN module installation guide.