File Coverage

blib/lib/Pipe/Tube.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	26	31	83.8

package Pipe::Tube;
use strict;
use warnings;

use Pipe;

our $VERSION = '0.04';

sub new {
    my ($class, $pipe, @args) = @_;

    my $self = bless {}, $class;
    $self->{pipe} = $pipe;
    $self->init(@args);
}

# methods to be implemnetd in subclass:
sub init {
    return $_[0];
}

sub run {
    return;
}

sub finish {
    return;
}

sub logger {
    my ($self, $msg) = @_;
    Pipe->logger($msg, $self);
}



1;