File Coverage

blib/lib/Text/Pipe/Base.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	3	4	75.0
condition	1	3	33.3
subroutine	8	9	88.8
pod	4	4	100.0
total	41	47	87.2

package Text::Pipe::Base;

use warnings;
use strict;
use UNIVERSAL::require;


our $VERSION = '0.10';


use base qw(Class::Accessor::Complex Class::Accessor::Constructor);


use overload
    '|'      => 'bit_or',
    fallback => 1;


__PACKAGE__->mk_constructor;


# so subclasses can call SUPER::init(@_)
sub init {}


sub filter_single {
    my ($self, $input) = @_;
    $input;
}


sub filter {
    my ($self, $input) = @_;

    if (ref $input eq 'ARRAY') {
        return [ map { $self->filter_single($_) } @$input ];
    } else {
        return $self->filter_single($input);
    }

}


sub bit_or {
    my ($lhs, $rhs) = @_;

    die "can only stack pipe segments" unless
        UNIVERSAL::isa($lhs, 'Text::Pipe::Base') &&
        UNIVERSAL::isa($rhs, 'Text::Pipe::Base');

    # even if either side is a Text::Pipe::Stackable already, don't push or
    # unshift because we don't want to alter the original pipes. So we'd
    # rather create nested pipes.

    # don't use() it because Text::Pipe::Stackable inherits from this class
    Text::Pipe::Stackable->require;
    Text::Pipe::Stackable->new($lhs, $rhs);
}


1;


__END__