NAME
    Data::Startup - startup options class, override, config methods

SYNOPSIS
     ######
     # Subroutine interface
     #
     use Data::Startup qw(config override);
 
     $options = override(\%default_options, @option_list );
     $options = override(\%default_options, \@option_list );
     $options = override(\%default_options, \%option_list );

     @options_list = config(\%options );

     ($key, $old_value) = config(\%options, $key);
     ($key, $old_value) = config(\%options, $key => $new_value ); 
     ($key, $old_value) = config(\%options, $key => $new_value );

     @old_options_list = config(\%options, @option_list);
     @old_options_list = config(\%options, \@option_list);
     @old_options_list = config(\%options, \%option_list);

     ######
     # Object interface
     #
     use Data::Startup

     $startup_options = $class->Data::Startup::new( @option_list );
     $startup_options = $class->Data::Startup::new( \@option_list );
     $startup_options = $class->Data::Startup::new( \%option_list );

     $options = $startup_options->override( @option_list );
     $options = $startup_options->override( \@option_list );
     $options = $startup_options->override( \%option_list );

     @options_list = $options->config( );

     ($key, $old_value) = $options->config($key);
     ($key, $old_value) = $options->config($key => $new_value ); 
     ($key, $old_value) = $options->config($key => $new_value );

     @old_options_list = $options->config(@option_list);
     @old_options_list = $options->config(\@option_list);
     @old_options_list = $options->config(\%option_list);

     # Note: May use [@option_list] instead of \@option_list
     #       and {@option_list} instead of \%option_list

DESCRIPTION
    Many times there is a group of subroutines that can be tailored by
    different situations with a few, say global variables. However, global
    variables pollute namespaces, become mangled when the functions are
    multi-threaded and probably have many other faults that it is not worth
    the time discovering.

    As well documented in literature, object oriented programming do not
    have these faults. This program module class of objects provide the
    objectized options for a group of subroutines or encapsulated options by
    using the methods directly as in an option object.

    The "Data::Startup" class provides a way to input options in very
    liberal manner of either

    *   arrays, reference to an array, or reference to hash to a

    *   reference to an array or reference to a hash

    *   reference to a hash

    *   referene to an array

    *   many other combos

    without having to cut and paste specialize, tailored code into each
    subroutine/method.

    Some of the possiblities follows.

    A subroutine may be utilize either as a subroutine or a method of a
    object by processing the first argument of @_ by the following:

     sub my_suroutine
     {
         shift if UNIVERSAL::isa($_[0],__PACKAGE__);

         # ....

     }

    The "Data::Startup" class may be used to provide various options syntax
    for a dual methods/subroutines as follows:

     my $default_options = new( @default_options_list);

     # SYNTAX: my_subroutine1($arg1 .. $argn, @options)
     #         my_subroutine1($arg1 .. $argn, \@options)
     #         my_subroutine1($arg1 .. $argn, \%options)
     #
 
     sub my_subroutine1
     {
         shift if UNIVERSAL::isa($_[0],__PACKAGE__);
         $default_options = Data::Startup->new() unless $default_options;
         my ($arg1 .. $argn, @options) = @_
         my $options = $default_options->override(@options);

         # ....
     }

     # SYNTAX: my_subroutine2(\@options, @args)
     #         my_subroutine2(\%options, @args)
     #
     # !ref($args[0])

     sub my_subroutine2
     {
         shift if UNIVERSAL::isa($_[0],__PACKAGE__);
         $default_options = Data::Startup->new() unless $default_options;
         my $options = $default_options->override(shift @_) if ref($_[0]);

         # ....
     }

     # SYNTAX: my_subroutine3(\%options, @args)
     #
     # ref($args[0]) ne 'HASH'

     sub my_subroutine3
     {
         shift if UNIVERSAL::isa($_[0],__PACKAGE__);
         $default_options = Data::Startup->new() unless $default_options;
         my $options = $default_options->override(shift @_) if ref($_[0] eq 'HASH');
         my (@args) = @_;

         # ....
     }

    If program module does not require program module wide global default
    options, than still use "Data::Startup" to provide liberal options
    syntax as follows

     # SYNTAX: my_subroutine1($arg1 .. $argn, @options)
     #         my_subroutine1($arg1 .. $argn, \@options)
     #         my_subroutine1($arg1 .. $argn, \%options)
     #
 
     sub my_subroutine4
     {
         shift if UNIVERSAL::isa($_[0],__PACKAGE__);
         my ($arg1 .. $argn, @options) = @_
         my $options = new Data::Startup(@options);

         # ....
     }

    This technique may be extended to many more different subroutine with a
    similar style syntax.

    The "Data::Startup" class may be used may also be used to create objects
    off a base "$default_object" as follows:

     use Data_Startup;
     unshift @ISA,'Data_Startup'; # first among classes
     use vars qw($default_object);
     $default_object = new Data::Startup( @default_list);

     sub new
     {
         $default_options->override( @_ );
 
     }  

     my $object = new my_package;
  
     my @old_options = object->config( @_ );
     my @old_default_options = $my_package::$default_object->config( @_ );

     sub method
     {
        $self = shift;
        $value1 = $self->{$key1};

     }
 
    And then there are the hybrid subroutine, class syntax and probably some
    other possibilies that are not readily apparent.

METHODS
  new

    The "new" method c<bless> the input "@option_list" creating a default
    options hash object.

  config

    The "config" method reads and writes individual key,value pairs or
    groups of key,value pairs in the "$option" object.

    The method response with no inputs with all the "$key,$value" pairs in
    "$options"; a single "$key" input with the "$key,$value" for that
    "$key"; and, a group of "$key, $value" pairs, "@option_list" by
    replacing all the "$option" "$key" in the group by the paired <$value>
    returning the "@old_options_list" of old "$key,$value" pairs. The
    "config" method does not care if the "@option_list" is an array, a
    reference to an array or a reference to a hash.

  override

    The "override" method takes a default options object,
    "$startup_options", creates a new duplicate object, "$options", keeping
    "$startup_options" intact, and replaces selected optioins in "$options"
    with override values, "@option_list".

REQUIREMENTS
    Coming.

DEMONSTRATION
     #########
     # perl Startup.d
     ###

    ~~~~~~ Demonstration overview ~~~~~

    The results from executing the Perl Code follow on the next lines as
    comments. For example,

     2 + 2
     # 4

    ~~~~~~ The demonstration follows ~~~~~

         use File::Package;
         my $uut = 'Data::Startup';

         my ($result,@result); # provide scalar and array context
         my ($default_options,$options) = ('$default_options','$options');

     ##################
     # create a Data::Startup default options
     # 

     ($default_options = new $uut(
            perl_secs_numbers => 'multicell',
            type => 'ascii',   
            indent => '',
            'Data::SecsPack' => {}
        ))

     # bless( {
     #                 'perl_secs_numbers' => 'multicell',
     #                 'Data::SecsPack' => {},
     #                 'type' => 'ascii',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # read perl_secs_numbers default option
     # 

     [$default_options->config('perl_secs_numbers')]

     # [
     #          'perl_secs_numbers',
     #          'multicell'
     #        ]
     #

     ##################
     # write perl_secs_numbers default option
     # 

     [$default_options->config(perl_secs_numbers => 'strict')]

     # [
     #          'perl_secs_numbers',
     #          'multicell'
     #        ]
     #

     ##################
     # restore perl_secs_numbers default option
     # 

     [$default_options->config(perl_secs_numbers => 'multicell')]

     # [
     #          'perl_secs_numbers',
     #          'strict'
     #        ]
     #

     ##################
     # create options copy of default options
     # 

     $options = $default_options->override(type => 'binary')

     # bless( {
     #                 'perl_secs_numbers' => 'multicell',
     #                 'Data::SecsPack' => {},
     #                 'type' => 'binary',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # verify default options unchanged
     # 

     $default_options

     # bless( {
     #                 'perl_secs_numbers' => 'multicell',
     #                 'Data::SecsPack' => {},
     #                 'type' => 'ascii',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # array reference option config
     # 

     [@result = $options->config([perl_secs_numbers => 'strict'])]

     # [
     #          'perl_secs_numbers',
     #          'multicell'
     #        ]
     #

     ##################
     # array reference option config
     # 

     $options

     # bless( {
     #                 'perl_secs_numbers' => 'strict',
     #                 'Data::SecsPack' => {},
     #                 'type' => 'binary',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # hash reference option config
     # 

     [@result = $options->config({'Data::SecsPack'=> {decimal_fraction_digits => 30} })]

     # [
     #          'Data::SecsPack',
     #          {}
     #        ]
     #

     ##################
     # hash reference option config
     # 

     $options

     # bless( {
     #                 'perl_secs_numbers' => 'strict',
     #                 'Data::SecsPack' => {
     #                                       'decimal_fraction_digits' => 30
     #                                     },
     #                 'type' => 'binary',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # verify default options still unchanged
     # 

     $default_options

     # bless( {
     #                 'perl_secs_numbers' => 'multicell',
     #                 'Data::SecsPack' => {},
     #                 'type' => 'ascii',
     #                 'indent' => ''
     #               }, 'Data::Startup' )
     #

     ##################
     # create a hash default options
     # 

       my %default_hash = (
            perl_secs_numbers => 'multicell',
            type => 'ascii',   
            indent => '',
            'Data::SecsPack' => {}
        );
     $default_options = \%default_hash

     # {
     #          'perl_secs_numbers' => 'multicell',
     #          'Data::SecsPack' => {},
     #          'type' => 'ascii',
     #          'indent' => ''
     #        }
     #

     ##################
     # override default_hash with an option array
     # 

     Data::Startup::override($default_options, type => 'binary')

     # {
     #          'perl_secs_numbers' => 'multicell',
     #          'Data::SecsPack' => {},
     #          'type' => 'binary',
     #          'indent' => ''
     #        }
     #

     ##################
     # override default_hash with a reference to a hash
     # 

     Data::Startup::override($default_options, {'Data::SecsPack'=> {decimal_fraction_digits => 30}})

     # {
     #          'perl_secs_numbers' => 'multicell',
     #          'Data::SecsPack' => {
     #                                'decimal_fraction_digits' => 30
     #                              },
     #          'type' => 'ascii',
     #          'indent' => ''
     #        }
     #

     ##################
     # override default_hash with a reference to an array
     # 

     Data::Startup::override($default_options, [perl_secs_numbers => 'strict'])

     # {
     #          'perl_secs_numbers' => 'strict',
     #          'Data::SecsPack' => {},
     #          'type' => 'ascii',
     #          'indent' => ''
     #        }
     #

     ##################
     # return from config default_hash with a reference to an array
     # 

     [@result = Data::Startup::config($default_options, [perl_secs_numbers => 'strict'])]

     # [
     #          'perl_secs_numbers',
     #          'multicell'
     #        ]
     #

     ##################
     # default_hash from config default_hash with a reference to an array
     # 

     $default_options

     # {
     #          'perl_secs_numbers' => 'strict',
     #          'Data::SecsPack' => {},
     #          'type' => 'ascii',
     #          'indent' => ''
     #        }
     #

QUALITY ASSURANCE
    Running the test script "Startup.t" verifies the requirements for this
    module. The "tmake.pl" cover script for Test::STDmaker automatically
    generated the "Startup.t" test script, "Startup.d" demo script, and
    "t::Data::Startup" program module POD, from the "t::Data::Startup"
    program module contents. The "tmake.pl" cover script automatically ran
    the "Startup.d" demo script and inserted the results into the
    'DEMONSTRATION' section above. The "t::Data::Startup" program module is
    in the distribution file Data-Startup-$VERSION.tar.gz.

NOTES
  Author

    The holder of the copyright and maintainer is

    <support@SoftwareDiamonds.com>

  Copyright Notice

    Copyrighted (c) 2002 Software Diamonds

    All Rights Reserved

  Binding Requirements Notice

    Binding requirements are indexed with the pharse 'shall[dd]' where dd is
    an unique number for each header section. This conforms to standard
    federal government practices, STD490A 3.2.3.6. In accordance with the
    License, Software Diamonds is not liable for any requirement, binding or
    otherwise.

  License

    Software Diamonds permits the redistribution and use in source and
    binary forms, with or without modification, provided that the following
    conditions are met:

    1   Redistributions of source code must retain the above copyright
        notice, this list of conditions and the following disclaimer.

    2   Redistributions in binary form must reproduce the above copyright
        notice, this list of conditions and the following disclaimer in the
        documentation and/or other materials provided with the distribution.

    3   Commercial installation of the binary or source must visually
        present to the installer the above copyright notice, this list of
        conditions intact, that the original source is available at
        http://softwarediamonds.com and provide means for the installer to
        actively accept the list of conditions; otherwise, a license fee
        must be paid to Softwareware Diamonds.

    SOFTWARE DIAMONDS, http://www.softwarediamonds.com, PROVIDES THIS
    SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
    NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
    FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SOFTWARE
    DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
    TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,DATA, OR
    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING USE
    OF THIS SOFTWARE, EVEN IF ADVISED OF NEGLIGENCE OR OTHERWISE) ARISING IN
    ANY WAY OUT OF THE POSSIBILITY OF SUCH DAMAGE.

SEE ALSO
    Docs::Site_SVD::Data_Startup
    Test::STDmaker
NAME
    Docs::Site_SVD::Data_Startup - startup options class, override, config
    methods

Title Page
     Software Version Description

     for

     Docs::Site_SVD::Data_Startup - startup options class, override, config methods

     Revision: C

     Version: 0.04

     Date: 2004/05/27

     Prepared for: General Public 

     Prepared by:  SoftwareDiamonds.com E<lt>support@SoftwareDiamonds.comE<gt>

     Copyright: copyright © 2003 Software Diamonds

     Classification: NONE

1.0 SCOPE
    This paragraph identifies and provides an overview of the released
    files.

  1.1 Identification

    This release, identified in 3.2, is a collection of Perl modules that
    extend the capabilities of the Perl language.

  1.2 System overview

    The "Data::Startup" module extends the Perl language (the system).

    Many times there is a group of subroutines that can be tailored by
    different situations with a few, say global variables. However, global
    variables pollute namespaces, become mangled when the functions are
    multi-threaded and probably have many other faults that it is not worth
    the time discovering.

    As well documented in literature, object oriented programming do not
    have these faults. This program module class of objects provide the
    objectized options for a group of subroutines or encapsulated options by
    using the methods directly as in an option object.

  1.3 Document overview.

    This document releases Data::Startup version 0.04 providing a
    description of the inventory, installation instructions and other
    information necessary to utilize and track this release.

3.0 VERSION DESCRIPTION
    All file specifications in this SVD use the Unix operating system file
    specification.

  3.1 Inventory of materials released.

    This document releases the file

     Data-Startup-0.04.tar.gz

    found at the following repository(s):

      http://www.softwarediamonds/packages/
      http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

    Restrictions regarding duplication and license provisions are as
    follows:

    Copyright.
        copyright © 2003 Software Diamonds

    Copyright holder contact.
         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

    License.
        Software Diamonds permits the redistribution and use in source and
        binary forms, with or without modification, provided that the
        following conditions are met:

        1   Redistributions of source code, modified or unmodified must
            retain the above copyright notice, this list of conditions and
            the following disclaimer.

        2   Redistributions in binary form must reproduce the above
            copyright notice, this list of conditions and the following
            disclaimer in the documentation and/or other materials provided
            with the distribution.

        3   The installation of the binary or source must visually present
            to the installer the above copyright notice, this list of
            conditions intact, that the original source is available at
            http://softwarediamonds.com and provide means for the installer
            to actively accept the list of conditions.

        SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS
        SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
        BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
        FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
        SOFTWARE DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
        SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
        LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
        USE,DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
        ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
        OR TORT (INCLUDING USE OF THIS SOFTWARE, EVEN IF ADVISED OF
        NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE POSSIBILITY
        OF SUCH DAMAGE.

  3.2 Inventory of software contents

    The content of the released, compressed, archieve file, consists of the
    following files:

     file                                                         version date       comment
     ------------------------------------------------------------ ------- ---------- ------------------------
     lib/Docs/Site_SVD/Data_Startup.pm                            0.04    2004/05/27 revised 0.03
     MANIFEST                                                     0.04    2004/05/27 generated, replaces 0.03
     Makefile.PL                                                  0.04    2004/05/27 generated, replaces 0.03
     README                                                       0.04    2004/05/27 generated, replaces 0.03
     lib/Data/Startup.pm                                          0.08    2004/05/27 revised 0.07
     t/Data/Startup.d                                             0.02    2004/05/27 revised 0.01
     t/Data/Startup.pm                                            0.02    2004/05/27 revised 0.01
     t/Data/Startup.t                                             0.02    2004/05/27 revised 0.01
     t/Data/File/Package.pm                                       1.18    2004/05/27 unchanged
     t/Data/Test/Tech.pm                                          1.26    2004/05/27 unchanged
     t/Data/Data/Secs2.pm                                         1.26    2004/05/27 unchanged
     t/Data/Data/Str2Num.pm                                       0.08    2004/05/27 unchanged
     t/ExtUtils/SVDmaker/Test.pm                                  0.04    2004/05/27 new
     t/ExtUtils/SVDmaker/Algorithm/Diff.pm                        0.04    2004/05/27 new

  3.3 Changes

    Changes are as follows:

    Data::Startup 0.01
        Originated

    Data::Startup 0.02
        FAILURE:

         From: "Thurn, Martin" <martin.thurn@ngc.com> 
         Date: Thu, 29 Apr 2004 09:21:20 -0400 (EDT) 
         Subject: FAIL Data-Startup-0.01 sun4-solaris 2.8 

        I noticed that the test suite seem to fail without these modules:
        Data::SecsPack

        CORRECTION:

        Added "Data::SecsPack" to the test library. The test Perl site lib
        only was corrupted and had a "Data::SecsPack" install else c<vmake>
        would of failed. Remove "Data::SecsPack" from the test Perl only
        site lib.

    Data::Startup 0.03
        Replaced "Data::SecsPack" wit "Data::Str2Num" in test library. The
        "Data::Secs2" package used form comparisions now only includes
        "Data::SecsPack" if it needs to pack numbers in accordance with SEMI
        E5.

        Reworked the "new" subroutine so that it specifically handles the
        case of no inputs and only accepts an array with even number of
        members to initialize an option hash.

    Data::Startup 0.04
        Add capability to the "override" subroutine so that it may handle
        hashes as well as object references for the first argument. This
        adds a subroutine interface to the object interface.

  3.4 Adaptation data.

    This installation requires that the installation site has the Perl
    programming language installed. There are no other additional
    requirements or tailoring needed of configurations files, adaptation
    data or other software needed for this installation particular to any
    installation site.

  3.5 Related documents.

    There are no related documents needed for the installation and test of
    this release.

  3.6 Installation instructions.

    Instructions for installation, installation tests and installation
    support are as follows:

    Installation Instructions.
        To installed the release file, use the CPAN module pr PPM module in
        the Perl release or the INSTALL.PL script at the following web site:

         http://packages.SoftwareDiamonds.com

        Follow the instructions for the the chosen installation software.

        If all else fails, the file may be manually installed. Enter one of
        the following repositories in a web browser:

          http://www.softwarediamonds/packages/
          http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

        Right click on 'Data-Startup-0.04.tar.gz' and download to a
        temporary installation directory. Enter the following where $make is
        'nmake' for microsoft windows; otherwise 'make'.

         gunzip Data-Startup-0.04.tar.gz
         tar -xf Data-Startup-0.04.tar
         perl Makefile.PL
         $make test
         $make install

        On Microsoft operating system, nmake, tar, and gunzip must be in the
        exeuction path. If tar and gunzip are not install, download and
        install unxutils from

         http://packages.softwarediamonds.com

    Prerequistes.
         None.

    Security, privacy, or safety precautions.
        None.

    Installation Tests.
        Most Perl installation software will run the following test
        script(s) as part of the installation:

         t/Data/Startup.t

    Installation support.
        If there are installation problems or questions with the
        installation contact

         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

  3.7 Possible problems and known errors

    There are no known open issues.

4.0 NOTES
    None.

2.0 SEE ALSO
    Data::Startup
    ExtUtils::SVDmaker
    Docs::US_DOD::SVD