LRpt

 view release on metacpan or  search on metacpan

lib/LRpt/CSVDiff.pm  view on Meta::CPAN

=back

=cut

##########################################################################
sub diff
{
    my ( $ext, $path, $sep, $chunk_size, $keys_file, $global_keys );
    my $skip_cols_file;
    local ( @ARGV ) = @_;
    my $help = "";
    my @key      = ();
    my @key_cols = ();
    my $skip_cols_string;

    GetOptions( "ext=s"       => \$ext,
                "path=s"      => \$path,
                "sep=s"       => \$sep,
                "key=s"      => \@key,
                "key_cols=s"  => \@key_cols,

lib/LRpt/CSVDumper.pm  view on Meta::CPAN

  dump_selects( @ARGV );

Equivalent of a 'main' function. For meaning of parameters see
L<COMMAND LINE OPTIONS|"COMMAND LINE OPTIONS">.

=cut

########################################################################
sub dump_selects
{
    local ( @ARGV ) = @_;
    set_params();
    run_selects();
} 

########################################################################

=head2 C<set_params>

  set_params();

lib/LRpt/CSVEADiff.pm  view on Meta::CPAN

  ea_diff( @ARGV );

Main function. @ARGV is processes by standard Getopt::Long module. Meaning 
of each switch is given in L<SYNOPSIS|"SYNOPSIS">.

=cut

#############################################################################
sub ea_diff
{
    local ( @ARGV ) = @_;
    my @key        = ();
    my @key_cols   = ();
    my $keys_file  = "";
    my $cmp_rules  = "";
    my $global_keys  = "";
    my $exp_file   = "";
    my $log_file   = "";
    my $help       = "";
    GetOptions( "key=s"      => \@key,
                "key_cols=s"  => \@key_cols,

lib/LRpt/KeySubst.pm  view on Meta::CPAN

  wkey_subst( @ARGV );

Main function. @ARGV is processes by standard Getopt::Long module. Meaning 
of each switch is given in L<SYNOPSIS|"SYNOPSIS">.

=cut

############################################################################
sub wkey_subst
{
    local( @ARGV ) = @_;
    my $keys_file    = "";
    my $help         = "";

    GetOptions( "keys=s"    => \$keys_file,
                "help"      => \$help ); 
    if( !$keys_file or $help ){
        print_usage();
        exit( 1 );
    }

lib/LRpt/XMLReport.pm  view on Meta::CPAN

  create_report( @ARGV );

Main public function. The only one exported. See 
L</COMMAND LINE SWITCHES> for meaning of parameters.

=cut

########################################################################
sub create_report
{
    local ( @ARGV ) = @_;
    my @key       = ();
    my @key_cols  = ();
    my $keys_file;
    my $global_keys;
    my $help = "";
    GetOptions( "selects=s" => \$stmt_fname,
                "diffs" => \$diffs,
                "help" => \$help,
                "key=s"      => \@key,
                "key_cols=s"  => \@key_cols,

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $test_dir = "t/DiffRpt/t6";
    my $inp_dir = "t/DiffRpt/t6/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all', 
                    '--key=2,1', 
                    '--key=4n8',
                    "$inp_dir/before.txt",
                    "$inp_dir/after.txt" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );
    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $test_dir = "t/DiffRpt/t7";
    my $inp_dir = "t/DiffRpt/t7/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all', 
                    '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "$inp_dir/before.txt",
                    "$inp_dir/after.txt" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $inp_dir = "t/DiffRpt/t8/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    $ENV{ 'LRPT_GLOBAL_KEYS_FILE' } = "$test_dir/key_path/keys.txt";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--all',  '--global_keys', 
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";
    delete $ENV{ 'LRPT_GLOBAL_KEYS_FILE' };

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $test_dir = "t/DiffRpt/t9";
    my $inp_dir = "t/DiffRpt/t9/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    '--skip_cols=Text3,Numeric5',
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $test_dir = "t/DiffRpt/t10";
    my $inp_dir = "t/DiffRpt/t10/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "--skip_cols_file=$test_dir/skip_file.txt",
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";

t/DiffRpt/driver.pl  view on Meta::CPAN

    my $test_dir = "t/DiffRpt/t11";
    my $inp_dir = "t/DiffRpt/t11/input";
    my $act_dir  = $test_dir . "/actual";
    my $exp_dir  = $test_dir . "/expected";
    
    if( -d $act_dir ){
        rmtree( $act_dir ) or die "Cannot delete directory $act_dir: $!"; 
    }
    mkdir( $act_dir ) or die "Cannot create directoty $act_dir: $!";
    
    local @ARGV = ( '--key_cols=Text2,Text1', 
                    '--key_cols=Numeric4:8',
                    "$inp_dir/before",
                    "$inp_dir/after" );
    
    test_support::redirect_stdout( "$act_dir/diffs.txt" );
    diff( @ARGV );
    test_support::restore_stdout( "$act_dir/diffs.txt" );

    $LRpt::RKeysRdr::rkeys_data = "";
    $LRpt::Config::settings = "";