Pipeline::Segment::Tester - a test wrapper for a Pipeline::Segment

Pipeline documentation Contained in the Pipeline distribution.

Index

Code Index:

NAME

Top

Pipeline::Segment::Tester - a test wrapper for a Pipeline::Segment

SYNOPSIS

Top

  use Pipeline::Segment::Tester;

  my $pst = Pipeline::Segment::Tester->new();
  $pst->test( $segment, $objects, $in, $store );

DESCRIPTION

Top

Pipeline::Segment::Tester exists to make testing segments easier. Segments will often rely on having multiple other objects in a pipeline store to be used properly, which makes testing a bit icky, as the store and the pipeline need to be set up to handle testing of a segment. Pipeline::Segment::Tester removes this requirement by creating the pipeline and adding stuff to the store for you before, and making your life easier.

METHODS

Top

new()

The new method constructs a new Pipeline::Segment::Tester object and returns it.

init()

The init method is called by the constructor and performs construction time initialization on the object.

test( Pipeline::Segment, [ ARRAY ] )

The test method takes a segment object as its first argument, which it will add to its pipeline before dispatch. It also takes an infinite number of additional paramaters that will be added to the store prior to dispatch of the pipeline.

Returns the production of the pipeline.

pipe( [ Pipeline ] )

The pipe method gets and sets the Pipeline object that Pipeline::Segment::Tester will use.

AUTHOR

Top

James A. Duncan <jduncan@fotango.com>

Pipeline documentation Contained in the Pipeline distribution. 
package Pipeline::Segment::Tester;

use strict;
use warnings::register;

use Pipeline;
use Pipeline::Base;
use base qw(Pipeline::Base);
our $VERSION = "3.12";

sub init {
  my $self = shift;
  if ($self->SUPER::init( @_ )) {
    $self->pipe( Pipeline->new() );
    return 1;
  } else {
    return 0;
  }
}

sub pipe {
  my $self = shift;
  my $pipe = shift;
  if (defined($pipe)) {
    $self->{pipe} = $pipe;
    return $self;
  } else {
    return $self->{pipe};
  }
}

sub test {
  my $self = shift;
  my $seg  = shift;

  $self->pipe->add_segment($seg);
  $self->pipe->store->set($_) foreach @_;
  return $self->pipe->dispatch();
#  $self->pipe->debug( 1 ); 
#  return (wantarray) ? ($self->pipe->dispatch) : [$self->pipe->dispatch];
#  return $self->pipe->dispatch();
}

1;