File Coverage

blib/lib/Data/Object/Role/Code.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	7	10	70.0
condition			n/a
subroutine	15	15	100.0
pod	0	7	0.0
total	52	62	83.8

# ABSTRACT: A Code Object Role for Perl 5
package Data::Object::Role::Code;

use 5.010;
use Data::Object::Role;

use Data::Object 'codify';

map with($_), our @ROLES = qw(
    Data::Object::Role::Defined
    Data::Object::Role::Detract
    Data::Object::Role::Output
    Data::Object::Role::Ref
    Data::Object::Role::Type
);

our $VERSION = '0.20'; # VERSION

sub call {
    my ($code, @arguments) = @_;
    return $code->(@arguments);
}

sub curry {
    my ($code, @arguments) = @_;
    return sub { $code->(@arguments, @_) };
}

sub rcurry {
    my ($code, @arguments) = @_;
    return sub { $code->(@_, @arguments) };
}

sub compose {
    my ($code, $next, @arguments) = @_;
    $next = codify $next if !ref $next;
    return curry(sub { $next->($code->(@_)) }, @arguments);
}

sub disjoin {
    my ($code, $next) = @_;
    $next = codify $next if !ref $next;
    return sub { $code->(@_) || $next->(@_) };
}

sub conjoin {
    my ($code, $next) = @_;
    $next = codify $next if !ref $next;
    return sub { $code->(@_) && $next->(@_) };
}

sub next {
    goto &call;
}

1;

__END__