Author: jkeenan Date: Tue Feb 12 16:27:31 2008 New Revision: 25676 Added: branches/tcif/lib/Parrot/Configure/Parallel.pm (contents, props changed) Modified: branches/tcif/MANIFEST
Log: Add Parrot::Configure::Parallel. Modified: branches/tcif/MANIFEST ============================================================================== --- branches/tcif/MANIFEST (original) +++ branches/tcif/MANIFEST Tue Feb 12 16:27:31 2008 @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Wed Feb 13 00:01:28 2008 UT +# generated by tools/dev/mk_manifest_and_skip.pl Wed Feb 13 00:12:24 2008 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -2427,6 +2427,7 @@ lib/Parrot/Configure/Options/Conf.pm [devel] lib/Parrot/Configure/Options/Reconf.pm [devel] lib/Parrot/Configure/Options/Test.pm [devel] +lib/Parrot/Configure/Parallel.pm [devel] lib/Parrot/Configure/Step.pm [devel] lib/Parrot/Configure/Step/List.pm [devel] lib/Parrot/Configure/Step/Methods.pm [devel] Added: branches/tcif/lib/Parrot/Configure/Parallel.pm ============================================================================== --- (empty file) +++ branches/tcif/lib/Parrot/Configure/Parallel.pm Tue Feb 12 16:27:31 2008 @@ -0,0 +1,92 @@ +# Copyright (C) 2001-2007, The Perl Foundation. +# $Id$ +package Parrot::Configure::Parallel; + +use strict; +use warnings; + +use lib qw(lib config); +use Carp qw(carp); +use Storable qw(nstore retrieve); +use Parrot::Configure::Data; +use base qw( Parrot::Configure::Base ); + +use Class::Struct; + +struct( + 'Parrot::Configure::Task::Parallel' => { + step => '$', + object => 'Parrot::Configure::Step', + }, +); + +my $singleton; + +BEGIN { + $singleton = { + steps => [], + data => Parrot::Configure::Data->new, + options => Parrot::Configure::Data->new, + }; + bless $singleton, "Parrot::Configure::Parallel"; +} + +sub new { + my $class = shift; + return $singleton; +} + +1; + +=head1 NAME + +Parrot::Configure::Parallel - Create a parallel configuration object + +=head1 SYNOPSIS + + use Parrot::Configure::Parallel; + + my $conf = Parrot::Configure::Parallel->new; + my $data = $conf->data; + my $options = $conf->options; + my @steps = $conf->steps; + $conf->add_steps(@steps); + $conf->runsteps; + +=head1 DESCRIPTION + +=cut + +=head2 Methods + +=head3 Constructors + +=over 4 + +=item * C<new()> + +Basic constructor. + +Accepts no arguments and returns a L<Parrot::Configure::Parallel> object. + +=cut + +=back + +=head1 AUTHOR + +Joshua Hoblitt C<[EMAIL PROTECTED]> + +=head1 SEE ALSO + +F<docs/configuration.pod>, L<Parrot::Configure::Data>, +L<Parrot::Configure::Step>, L<Parrot::Configure::Step::Base> + +=cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: