The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Set-Functional-1.0
River stage one • 5 direct dependents • 6 total dependents
++
/ benchmarks/disjoint.pl 
        '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:

Around line 68:

Unknown directive: =head