Author: jkeenan
Date: Tue Feb 12 16:27:14 2008
New Revision: 25675
Modified:
branches/tcif/lib/Parrot/Configure.pm
Log:
For ease of editing, move documentation to end of file.
Modified: branches/tcif/lib/Parrot/Configure.pm
==============================================================================
--- branches/tcif/lib/Parrot/Configure.pm (original)
+++ branches/tcif/lib/Parrot/Configure.pm Tue Feb 12 16:27:14 2008
@@ -1,6 +1,43 @@
# Copyright (C) 2001-2007, The Perl Foundation.
# $Id$
+package Parrot::Configure;
+
+use strict;
+use warnings;
+
+use lib qw(config);
+use Carp qw(carp);
+use Storable qw(nstore retrieve);
+use Parrot::Configure::Data;
+use base qw( Parrot::Configure::Base );
+use base qw(Parrot::Configure::Compiler);
+
+use Class::Struct;
+
+struct(
+ 'Parrot::Configure::Task' => {
+ step => '$',
+ object => 'Parrot::Configure::Step',
+ },
+);
+
+my $singleton;
+
+BEGIN {
+ $singleton = {
+ steps => [],
+ data => Parrot::Configure::Data->new,
+ options => Parrot::Configure::Data->new,
+ };
+ bless $singleton, "Parrot::Configure";
+}
+
+sub new {
+ my $class = shift;
+ return $singleton;
+}
+
=head1 NAME
Parrot::Configure - Conducts the execution of Configuration Steps
@@ -32,27 +69,6 @@
=cut
-package Parrot::Configure;
-
-use strict;
-use warnings;
-
-use lib qw(config);
-use Carp qw(carp);
-use Storable qw(nstore retrieve);
-use Parrot::Configure::Data;
-use base qw( Parrot::Configure::Base );
-use base qw(Parrot::Configure::Compiler);
-
-use Class::Struct;
-
-struct(
- 'Parrot::Configure::Task' => {
- step => '$',
- object => 'Parrot::Configure::Step',
- },
-);
-
=head2 Methods
=head3 Constructor
@@ -67,22 +83,6 @@
=cut
-my $singleton;
-
-BEGIN {
- $singleton = {
- steps => [],
- data => Parrot::Configure::Data->new,
- options => Parrot::Configure::Data->new,
- };
- bless $singleton, "Parrot::Configure";
-}
-
-sub new {
- my $class = shift;
- return $singleton;
-}
-
=back
=head1 CREDITS
