File Coverage

blib/lib/Pipeline/Segment.pm

Criterion	Covered	Total	%
statement	44	45	97.7
branch	7	8	87.5
condition			n/a
subroutine	13	13	100.0
pod	6	7	85.7
total	70	73	95.8

package Pipeline::Segment;

use strict;
use warnings::register;

use Pipeline::Base;
use Scalar::Util qw( weaken );
use Pipeline::Error::Abstract;

use base qw( Pipeline::Base );

our $VERSION = "3.12";

sub init {
  my $self = shift;
  if ($self->SUPER::init()) {
    $self->parent( '' );
    return 1;
  } else {
    return undef;
  }
}

sub dispatch {
  throw Pipeline::Error::Abstract;
}

sub dispatch_method { undef }

sub prepare_dispatch {
  my $self = shift;
  my $pipe = shift;
  $self->parent( $pipe );
  $self->store( $pipe->store );
}

sub cleanup_dispatch {
  my $self = shift;
  $self->{ parent } = undef;
  $self->{ store } = undef;
}

sub parent {
  my $self = shift;
  my $seg  = shift;
  if (defined( $seg )) {
    $self->{ parent } = $seg;
    weaken( $self->{ parent } ) if ref( $seg );
    return $self;
  } else {
    return $self->{ parent };
  }
}

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

1;

=head1 NAME

Pipeline::Segment - basic class for a segment

=head1 SYNOPSIS

  use Pipeline::Segment;
  my $ps = Pipeline::Segment->new();
  $ps->dispatch();

=head1 DESCRIPTION

C is designed as a part of the C system.  The
C class is designed to be subclassed as a part of the Pipeline
system.  The primary method that needs to be overloaded is the C method,
which the Pipeline class uses to enter each individual segment that it contains.

=head1 METHODS

The C class inherits from C and therefore
also has any additional methods that its superclass may have.

=over 4

=item init()

The C method is called at construction time.  Any arguments passed to the
C method are passed to it.

=item dispatch()

The C method causes the segment to perform its action.

=item dispatch_method()

The C gets and sets the method that gets called on dispatch, by
default this is the C method.

=item cleanup_dispatch()

The C method does post-processing on the segment to ensure
no nasty circular references are lying around, as well as disconnecting
various objects that are only useful during a dispatch.

=item store()

The C method gets the current store.

=item parent()

The C method returns the pipeline that the segment is current operating from.
It is set at dispatch time by the calling pipeline.

=back

=head1 SEE ALSO

C, C

=head1 AUTHOR

James A. Duncan

=head1 COPYRIGHT

Copyright 2003 Fotango Ltd. All Rights Reserved.

This software is released under the same terms as Perl itself.
=cut