File Coverage

blib/lib/Text/Pipe.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	3	4	75.0
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	54	55	98.1

package Text::Pipe;

use strict;
use warnings;
use 5.006;
use Text::Pipe::Base;   # for def_pipe()
use Sub::Name;
use UNIVERSAL::require;


our $VERSION = '0.10';


use base 'Exporter';


our %EXPORT_TAGS = (
    util  => [ qw(PIPE) ],
);


our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };


# this is just a factory

sub new {
    my ($class, $type, @config) = @_;
    my $package = "Text::Pipe::$type";

    # Check; it might have been defined with def_pipe(), so ->require wouldn't
    # work.

    unless (UNIVERSAL::can($package, 'filter')) {
        $package->require or die $@;
    }

    $package->new(@config);
}


sub def_pipe {
    my ($self, $name, $code) = @_;
    my $package = "Text::Pipe::$name";

    no strict 'refs';
    @{ "${package}::ISA" } = ('Text::Pipe::Base');
    *{ "${package}::filter" } = subname "${package}::filter" => $code;
}


# Easier, procedural, way to construct a pipe

sub PIPE {
    my ($type, @args) = @_;
    Text::Pipe->new($type, @args);
}


1;


__END__