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:
