File Coverage

blib/lib/fp/functionals.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	6	6	100.0
condition			n/a
subroutine	20	20	100.0
pod	8	8	100.0
total	71	71	100.0

package fp::functionals;

use strict;
use warnings;

our $VERSION = '0.02';

# use fp's import routine
use fp;

BEGIN {
    *import = \&fp::import;
}

## ----------------------------------------------------------------------------

# right and left currying routines

sub curry ($@) {
	my ($f, @args) = @_;
        sub { $f->(@args, @_) }}

sub rcurry ($@) {
	my ($f, @args) = @_;
        sub { $f->(@_, @args) }}

## ----------------------------------------------

# composition functions to compose
# functions out of other functions

sub simple_compose ($$) {
	my ($f, $f2) = @_;
        sub { $f2->($f->(@_)) }}

sub compose (@); # pre-declare sub so it can be used in recursion
sub compose (@) {
	my ($f, $f2, @rest) = @_;
        (!$f2) ?
            $f
            :
            compose sub { $f2->($f->(@_)) }, @rest }

## ----------------------------------------------

# identity function

sub always ($) {
    my ($K) = @_;
        sub { $K }}

## ----------------------------------------------

## short circut function compositors

sub disjoin ($$) {
	my ($f, $f2) = @_;
		sub { $f->(@_) || $f2->(@_) }}

sub conjoin ($$) {
	my ($f, $f2) = @_;
		sub { $f->(@_) && $f2->(@_) }}

## ----------------------------------------------------------------------------

# this method is really more a utility method
# to go along with these other, it can be used
# to bind a anyonomous function to a symbol within
# the callers namespace

sub defun ($$) {
    my ($symbol, $f) = @_;
    no strict 'refs';
    *{(caller())[0] . "::$symbol"} = $f }

1;

__END__