File Coverage

blib/lib/Sub/Composable.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	34	39	87.1

use strict; use warnings;
package Sub::Composable;
$Sub::Composable::VERSION = '0.14';
use Sub::Name;

# use Sub::Compose qw( chain ); # doesn't fucking work, due to scalar/list context shenanigans

sub compose {
    my ($l, $r, $swap) = @_;

    if ($swap) { ($l, $r) = ($r, $l); }
    my $sub = subname composition => sub {
        $l->($r->(@_));
        };
    bless $sub, __PACKAGE__;
}

sub backcompose {
    my ($l, $r, $swap) = @_;

    compose($l, $r, !$swap);
}

sub applyto {
  my ($self, $other, $swap)=@_;

  if ($swap) {
    # $other | $self
    $self->($other);
  } else {
    # $self | $other
    overload::Method($other, '|')->($other, $self, 1);
  }
}

use overload '<<' => \&compose,
             '>>' => \&backcompose,
             '|'  => \&applyto,
             # fallback is needed to avoid an error from Attribute::Handlers
             'fallback' => 1;

1;