NAME

DataPort::Maker - loads a FormDB from a program module and calls targets (methods) with the DB

SYNOPSIS

use DataPort::Maker;

$maker = new ExtUtils::SVDmaker( @options );
$maker = new ExtUtils::SVDmaker( \%options );

$maker->make_targets( \%targets, @targets, \%options ); 
$maker->make_targets( \%targets, @targets ); 
$maker->make_targets( \%targets, \%options  ); 

$maker->make_pm( \%targets, @targets, \%options ); 
$maker->make_pm( \%targets, @targets ); 
$maker->make_pm( \%targets, \%options  ); 

DESCRIPTION

Description coming soon.

REQUIREMENTS

Requirements are coming.

DEMONSTRATION

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

Perl code begins with the prompt

=>

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

=> 2 + 2
4

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

=>     use File::Package;
=>     my $fp = 'File::Package';
=>     my $loaded = '';

=>     use File::SmartNL;
=>     my $snl = 'File::SmartNL';
=> my $errors = $fp->load_package( 't::DataPort::MakerDB' )
=> $errors
''

=> $snl->fin('MakerDB.pm')
'#!perl
#
# The copyright notice and plain old documentation (POD)
# are at the end of this file.
#
package  t::DataPort::MakerDB;

use strict;
use warnings;
use warnings::register;

use vars qw($VERSION $DATE $FILE );
$VERSION = '0.01';
$DATE = '2003/07/04';
$FILE = __FILE__;

use DataPort::Maker;
use vars qw( @ISA );
@ISA = qw( DataPort::Maker );

######
# Hash of targets
#
my %targets = (
    all => [ qw(target1 target2) ],
    target3 => [ qw(target1 target3) ],
    target4 => [ qw(target1 target2 target4) ],
    __no_target__ => [ qw(target3 target4 target5) ],
);

my $data = '';

sub make
{
    my $self = shift @_;
    $self->make_targets( \%targets, @_ );
    my $result = $data;
    $data = '';
    $result
}

sub target1
{
   $data .= ' target1 ';
   1
}

sub target2
{
   $data .= ' target2 ';
   1
}

sub target3
{
   $data .= ' target3 ';
   1
}

sub target4
{
   $data .= ' target4 ';
   1
}

sub target5
{
   $data .= ' target5 ';
   1
}

1

__DATA__

Revision: -^
End_User: General Public^
Author: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com^
Version: ^
Classification: None^

~-~
'

=> my $maker = new t::DataPort::MakerDB( pm => 't::DataPort::MakerDB' )
=> $maker->make( )
' target1  target2 '

=> $maker->make( 'all' )
' target1  target2 '

=> $maker->make( 'xyz' )
' target3  target4  target5 '

=> $maker->make( 'target3' )
' target1  target3 '

=> $maker->make( qw(target3 target4) )
' target1  target3  target1  target2  target4 '

QUALITY ASSURANCE

The module "t::DataPort::Maker" is the Software Test Description(STD) module for the "DataPort::Maker". module.

To generate all the test output files, run the generated test script, run the demonstration script and include it results in the "DataPort::Maker" POD, execute the following in any directory:

tmake -test_verbose -replace -run  -pm=t::DataPort::Maker

Note that tmake.pl must be in the execution path $ENV{PATH} and the "t" directory containing "t::DataPort::Maker" on the same level as the "lib" directory that contains the "DataPort::Maker" module.

NOTES

AUTHOR

COPYRIGHT HOLDER

The holder of the copyright and maintainer is

E<lt>support@SoftwareDiamonds.comE<gt>

COPYRIGHT NOTICE

copyright © 2003 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, 490A ("3.2.3.6" in STD490A). 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.

SOFTWARE DIAMONDS 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

cpanm DataPort::Maker

perl -MCPAN -e shell
install DataPort::Maker