view release on metacpan or  search on metacpan

t/dbdpg_test_setup.pl  view on Meta::CPAN

    ## Build a command to pass to the system, quoting as needed
    my $string = shift;
    my $args = shift;
    my $effect = shift || '';
    my $x = 0;

    $string =~ s!([A-Z]{2}[A-Z_]+)!
      {
       my $var = $args->[$x++];
       if (not defined $var) {
         my $line = (caller)[2];
         die "Invalid command string from line $line\n";
       }
       if ($var =~ /\s/) {
           if ($effect eq 'backslash_spaces') {
               $var =~ s/ /\\ /g;
               $var;
           }
           else {
               qq{"$var"};
           }