File Coverage

blib/lib/Sub/Mux.pm

Criterion	Covered	Total	%
statement	57	60	95.0
branch	3	6	50.0
condition			n/a
subroutine	15	15	100.0
pod	10	10	100.0
total	85	91	93.4

package Sub::Mux;
use strict;
use warnings;
use Carp qw/croak/;

our $VERSION = '0.02';

sub new {
    my $class = shift;

    my @subs;
    $class->_push(\@subs, \@_);
    bless { subs => \@subs }, $class;
}

sub subs { $_[0]->{subs} }

sub execute_first {
    my $self = shift;

    for my $code (@{$self->subs}) {
        my $res = $code->(@_);
        return $res if defined $res;
    }
    return;
}

sub execute {
    execute_first(@_);
}

sub execute_all {
    my $self = shift;

    my $result;
    for my $code (@{$self->subs}) {
        my $res = $code->(@_);
        push @{$result}, $res;
    }
    return $result;
}

sub execute_list {
    my $self = shift;

    my $list = $self->subs;

    my $result;
    for my $i (@_) {
        my $code = $list->[$i];
        my $res = $code->(@_);
        push @{$result}, $res;
    }
    return $result;
}

sub unshift_subs {
    my $self = shift;

    $self->_unshift($self->subs, \@_);
}

sub _unshift {
    my ($self, $list, $append) = @_;

    for my $arg (reverse @{$append}) {
        if (ref $arg eq 'CODE') {
            unshift @{$list}, $arg;
        }
        else {
            croak 'wrong subs';
        }
    }
}

sub shift_subs { shift @{$_[0]->subs}; }

sub push_subs {
    my $self = shift;

    $self->_push($self->subs, \@_);
}

sub _push {
    my ($self, $list, $append) = @_;

    for my $arg (@{$append}) {
        if (ref $arg eq 'CODE') {
            push @{$list}, $arg;
        }
        else {
            croak 'wrong subs';
        }
    }
}

sub pop_subs { pop @{$_[0]->subs}; }

1;

__END__