File Coverage

blib/lib/MultiProcFactory/Generic.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	3	3	100.0
total	27	30	90.0

package MultiProcFactory::Generic;
# @(#) $Name:  $ $Id: Generic.pm,v 1.3 2004/09/14 18:44:16 aaron Exp $
## Aaron Dancygier

use strict;
use vars qw(@ISA $VERSION);
$VERSION = '0.01';

@ISA = qw(MultiProcFactory);

sub init {
  my $self = shift;

  unless (@{$self->{partition_list}} - 0) {
    croak("must pass partition_list\n");
  }

  foreach my $url (@{$self->{partition_list}}) {
    $self->{partition_hash}{$url} = 1;
  }

  $self->{timeout} ||= 30;
}

sub do_child_init {
  my $self = shift;

  return 1;
}

sub work {
  my $self = shift;

  $self->do_child();
}

1;

__END__