From 5f5160a8a82e4d495836a327feb0f7fa0755f3a8 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 3 Jul 2021 06:52:22 -0700 Subject: [PATCH] added testing utility run_convergence_tests.pl --- dev-bin/RandomTesting.md | 14 + dev-bin/build.pl | 38 +- dev-bin/run_convergence_tests.pl | 610 ++ dev-bin/run_convergence_tests.pl.data | 13006 ++++++++++++++++++++++++ local-docs/BugLog.pod | 6 +- 5 files changed, 13668 insertions(+), 6 deletions(-) create mode 100755 dev-bin/run_convergence_tests.pl create mode 100644 dev-bin/run_convergence_tests.pl.data diff --git a/dev-bin/RandomTesting.md b/dev-bin/RandomTesting.md index 0de9be30..8668f6b7 100644 --- a/dev-bin/RandomTesting.md +++ b/dev-bin/RandomTesting.md @@ -165,6 +165,20 @@ Also run which will help scan the ```nohup.my``` file for certain keywords. +## Utility for running convergence tests + +Most of the problems discovered with random testing are cases where perltidy did not converge under unusual parameter settings. In most cases the issues involved can be boiled down to a very short script with just a few parameters. All of these issues have been fixed, but perltidy should be re-tested on these after every coding change. A script to do this is + + - run_convergence_tests.pl + +The usage is simply + +``` +./run_convergence_tests.pl +``` + +It reads its database, ```run_convergence_tests.pl.data```, and runs the latest version of perltidy on each case. This takes a little time because there are hundreds of cases in the database. The last line of the output will show "OK" if there are no problems. + ## Additional scripts The files of parameters which are automatically are long and contain diff --git a/dev-bin/build.pl b/dev-bin/build.pl index 222f82bf..dd70668c 100755 --- a/dev-bin/build.pl +++ b/dev-bin/build.pl @@ -43,7 +43,7 @@ my $fh_log; # These are the main steps, in approximate order, for making a new version # Note: Since perl critic is in the .tidyallrc, a separate 'PC' step is not # needed -my $rsteps = [qw( CHK V PC TIDY T CL DOCS MANIFEST DIST)]; +my $rsteps = [qw( CHK CONV V PC TIDY T CL DOCS MANIFEST DIST)]; my $rstatus = {}; foreach my $step ( @{$rsteps} ) { $rstatus->{$step} = 'TBD' } @@ -58,6 +58,7 @@ my $rcode = { 'V' => \&update_version_number, 'PC' => \&run_perl_critic, 'TIDY' => \&run_tidyall, + 'CONV' => \&run_convergence_tests, 'MANIFEST' => \&make_manifest, 'T' => \&make_tests, 'DOCS' => \&make_docs, @@ -83,6 +84,7 @@ chk - view release CHecKlist status: $rstatus->{'CHK'} v - check/update Version Number status: $rstatus->{'V'} tidy - run tidyall (tidy & critic) status: $rstatus->{'TIDY'} pc - run PerlCritic (critic only) status: $rstatus->{'PC'} +conv - run convergence tests status: $rstatus->{'CONV'} manifest - make MANIFEST status: $rstatus->{'MANIFEST'} t - make Tests status: $rstatus->{'T'} cl - review/edit CHANGES.md status: $rstatus->{'CL'} @@ -168,6 +170,33 @@ sub run_tidyall { return; } +sub run_convergence_tests { + my $fout = "tmp/run_convergence_tests.out"; + $rstatus->{'CONV'} = 'TBD'; + + # running with any .perltidyrc file + my $cmd = "./dev-bin/run_convergence_tests.pl >$fout 2>>$fout"; + system_echo($cmd); + + my $fh; + if ( !open( $fh, '<', $fout ) ) { + hitcr("Strange: cannot open '$fout': $!."); + return; + } + my @lines = <$fh>; + foreach my $line (@lines) { $fh_log->print($line) } + my $error = $lines[-1] !~ /OK/; + + $fh->close(); + if ( !$error ) { + $rstatus->{'CONV'} = 'OK'; + hitcr("Convergence check OK."); + return; + } + openurl("$fout"); + return; +} + sub run_perl_critic { my $pcoutput = "tmp/perlcritic.out"; $rstatus->{'PC'} = 'TBD'; @@ -334,8 +363,11 @@ sub update_version_number { my $reported_VERSION = $Perl::Tidy::VERSION; my $lib_path = "lib/Perl/"; my $bin_path = "bin/"; - my @sources = ( $lib_path . "Tidy.pm", $lib_path . "Tidy.pod", - $bin_path . "perltidy", ); + my @sources = ( + $lib_path . "Tidy.pm", + $lib_path . "Tidy.pod", + $bin_path . "perltidy", + ); push @sources, "CHANGES.md"; my @more = qw( Tidy/Debugger.pm diff --git a/dev-bin/run_convergence_tests.pl b/dev-bin/run_convergence_tests.pl new file mode 100755 index 00000000..471040a1 --- /dev/null +++ b/dev-bin/run_convergence_tests.pl @@ -0,0 +1,610 @@ +#!/usr/bin/perl -w +use strict; +use warnings; +use File::Copy; +use Perl::Tidy; + +my $usage = < does not take an argument +# =s takes a mandatory string +# :s takes an optional string +# =i takes a mandatory integer +# :i takes an optional integer +# ! does not take an argument and may be negated +# i.e., -foo and -nofoo are allowed +# a double dash signals the end of the options list +my @option_string = qw( + h + m + p + r + u +); + +my %Opts = (); +if ( !GetOptions( \%Opts, @option_string ) ) { + die "Programming Bug: error in setting default options"; +} + +if ( $Opts{h} ) { + print $usage; + exit 1; +} + +# set default .data file +my $db_fname = $0 . ".data"; + +# set tmp dir - you may need to change this depending on setup +my $git_home = qx[git rev-parse --show-toplevel]; +chomp $git_home; +my $tmp_dir = $git_home . "/dev-bin/tmp"; +if ( -e $tmp_dir && !-d $tmp_dir ) { + print STDERR "'$tmp_dir' exists but is not a dir: please fix\n"; + exit 1; +} + +print <{$case} = $rdata_files->{$fname}; + } + elsif ( $fname =~ /^(.*)\.par$/ ) { + my $case = $1; + $rparams->{$case} = $rdata_files->{$fname}; + } + else { + + # A foreign file seems to have entered the database + print "ignoring unknown file '$fname'\n"; + } + } + + # be sure we have both a .in and .par for each case + my ( @missing_snames, @missing_pnames ); + foreach my $sname ( keys %{$rsources} ) { + if ( !$rparams->{$sname} ) { + push @missing_pnames, $sname; + } + } + foreach my $pname ( keys %{$rparams} ) { + if ( !$rsources->{$pname} ) { + push @missing_snames, $pname; + } + } + + if (@missing_snames) { + print STDERR + "WARNING: missing .in files for these cases: @missing_snames\n"; + } + if (@missing_pnames) { + print STDERR + "WARNING: Missing .par files for these cases: @missing_pnames\n"; + } + exit 1 if ( @missing_snames || @missing_pnames ); + + my $iteration_max = 6; + my @failed_to_converge; + my $opath = $tmp_dir . '/'; + + my @selected_cases = keys %{$rsources}; + if ( @{$rcases} ) { + @selected_cases = @{$rcases}; + } + + my @skipped_cases; + foreach my $sname ( sort @selected_cases ) { + + # remove any old tmp files for this case + my $str = $opath . $sname . ".[0-9]"; + my @tmp_files = glob("$str"); + if (@tmp_files) { + my $num = unlink @tmp_files; + print "unlinked $num old files for case $sname\n"; + } + + my $pname = $sname; + my $output; + my $source = $rsources->{$sname}; + if ( !defined($source) ) { + print "Skipping case $sname : not in database\n"; + push @skipped_cases, $sname; + next; + } + my $params = $rparams->{$pname}; + my $stderr_string; + my $errorfile_string; + my @output_history; + for ( my $iteration = 1 ; $iteration <= $iteration_max ; $iteration++ ) + { + my $err = Perl::Tidy::perltidy( + source => \$source, + destination => \$output, + perltidyrc => \$params, + argv => '', # don't let perltidy look at my @ARGV + stderr => \$stderr_string, + errorfile => \$errorfile_string, # not used when -se flag is set + ); + if ($stderr_string) { + print STDERR "---------------------\n"; + print STDERR "<>\n$stderr_string\n"; + print STDERR "---------------------\n"; + print STDERR "The above error was received with case $sname\n"; + exit 1; + } + if ($errorfile_string) { + print STDERR "---------------------\n"; + print STDERR "<<.ERR file>>\n$errorfile_string\n"; + print STDERR "---------------------\n"; + print STDERR "The above error was received with case $sname\n"; + exit 1; + } + if ($err) { + print STDERR "error calling Perl::Tidy for case $sname\n"; + exit 1; + } + + push @output_history, $output; + + if ( $output eq $source ) { + print "$sname: converged on iteration $iteration\n"; + last; + } + elsif ( $iteration < $iteration_max ) { + $source = $output; + } + else { + push @failed_to_converge, $sname; + print "$sname: FAILED TO CONVERGE\n"; + + my $it = 0; + foreach my $ostring (@output_history) { + $it++; + my $basename = "$sname.$it"; + my $ofile = $opath . $basename; + write_file( $ofile, $ostring, 1 ); + } + my $sfile = $opath . $sname . ".in"; + my $pfile = $opath . $sname . ".par"; + write_file( $sfile, $rsources->{$sname}, 1 ); + write_file( $pfile, $rparams->{$sname}, 1 ); + } + + #push @olist, $basename; + } + } + + print "...\n"; + if (@failed_to_converge) { + + print <{$fname} = $string + # where $fname is the file name and $string is its text + + my $rdata_files = {}; + if ( !-e $db_fname ) { + print STDERR "Database $db_fname does not exist\n"; + exit 1; + } + + my $dstring = get_string($db_fname); + my @lines = split /\n/, $dstring; + my $lines = @lines; + my $fname = ""; + my $lno = 0; + my $string; + + foreach my $line (@lines) { + $lno++; + if ( $line =~ /^==>\s*([\w\.]+)\s*<==/ ) { + if ($string) { + chomp $string if ( $string =~ /\n\n/ ); + $rdata_files->{$fname} = $string; + } + $string = ""; + $fname = $1; + } + else { + $string .= $line . "\n"; + } + } + if ($string) { + $rdata_files->{$fname} = $string; + } + return $rdata_files; +} + +sub unpack_data { + + my ( $rdata_files, $rcases, $rfiles ) = @_; + + # unpack selected cases, files, or all of the database into + # a temporary directory + my $opath = $tmp_dir . '/'; + my @keys = @{$rfiles}; + my $count = 0; + foreach my $case ( @{$rcases} ) { + push @keys, $case . "\.in"; + push @keys, $case . "\.par"; + } + if ( !@keys ) { @keys = keys %{$rdata_files} } + foreach my $key (@keys) { + my $fname = $opath . $key; + my $string = $rdata_files->{$key}; + if ( !$string ) { + print STDERR "could not find '$fname' in database\n"; + } + else { + $count++; + write_file( $fname, $string ); + } + } + print "Wrote $count files to '$tmp_dir'\n"; + return; +} + +sub merge_data { + my ( $db_fname, $rold_data, $rfiles ) = @_; + + my $rnew_data = read_files_to_hash($rfiles); + + # Merge the two data hashes + my $update_count = 0; + my $new_count = 0; + foreach my $fname ( keys %{$rnew_data} ) { + my $string = $rnew_data->{$fname}; + if ( defined( $rold_data->{$fname} ) ) { + $update_count++; + } + else { + $new_count++; + } + $rold_data->{$fname} = $string; + } + + my $num_old = keys %{$rold_data}; + print <{$file} = $string; + } + return $rdata; +} + +sub write_hash_to_data_file { + my ( $db_fname, $rdata ) = @_; + my $nfiles = keys %{$rdata}; + print "packing $nfiles files into $db_fname\n"; + + # Pack into a temporary file first, + # if all goes well... + # backup old data file if it exists, + # then rename + my $ostring; + my $count = 0; + foreach my $fname ( sort keys %{$rdata} ) { + my $string = $rdata->{$fname}; + if ($count) { $ostring .= "\n"; } + if ( $fname =~ /\/([^\/]+$)/ ) { $fname = $1; } + $count++; + $ostring .= "==> $fname <==\n"; + $ostring .= $string; + } + + # Backup an existing database + if ( -e $db_fname ) { + my $backup_extension = ".bak"; + my $backup_name = $db_fname . $backup_extension; + if ( -f $backup_name ) { + unlink($backup_name) + or die( +"unable to remove previous '$backup_name' for -b option; check permissions: $!\n" + ); + } + + # backup the old data file + # use copy for symlinks, move for regular files + if ( -l $db_fname ) { + File::Copy::copy( $db_fname, $backup_name ) + or die("File::Copy failed trying to backup source: $!"); + } + else { + rename( $db_fname, $backup_name ) + or die("problem renaming $db_fname to $backup_name: $!\n"); + } + } + + write_file( $db_fname, $ostring ); + print "Wrote $count files to $db_fname\n"; + return; +} + +sub get_string { + my ($file) = @_; + open my $fh, '<', $file or die "cannot open $file: $!\n"; + local $/ = undef; + my $string = <$fh>; + close $fh; + return $string; +} + +sub make_tmp_dir { + if ( !-d $tmp_dir ) { + unless ( mkdir $tmp_dir ) { + print STDERR "unable to create $tmp_dir\n"; + exit 1; + } + if ( !-d $tmp_dir ) { + print STDERR "problem creating $tmp_dir\n"; + exit 1; + } + } +} + +sub write_file { + my ( $fname, $string, $msg ) = @_; + open my $fh, '>', $fname or die "cannot open $fname: $!\n"; + $fh->print($string); + $fh->close(); + print STDERR "Wrote $fname\n" if ($msg); + return; +} diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data new file mode 100644 index 00000000..207a886a --- /dev/null +++ b/dev-bin/run_convergence_tests.pl.data @@ -0,0 +1,13006 @@ +==> b001.in <== +# State 1 + if ( $printer eq "" + || $printer eq 'nulllp' ) + { + open( PRINTER, + ">>/tmp/kohares" ) ; + } + +__END__ + +# State 2 + if ( $printer eq "" + || $printer eq 'nulllp' ) + { + open( PRINTER, + ">>/tmp/kohares" + ) ; + } + +==> b001.par <== +--ignore-old-breakpoints +--indent-columns=2 +--space-terminal-semicolon + +==> b002.in <== +#State 1 +if( + ( $search + [ + 0 + ]) + and + not( $op + eq +'do_search')) + +__END__ + +# State 2 + +if ( + ( $search + [0] ) + and + not( $op + eq +'do_search' + ) + ) + + +==> b002.par <== +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=20 +--weld-nested-containers + +==> b003.in <== +# State 1 +if( + ( $search + [ + 0 + ]) + and + not( $op + eq +'do_search')) + +__END__ + +# state 2 + +if ( + ( $search + [0] ) + and + not( $op + eq +'do_search' + ) + ) + + +==> b003.par <== +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=20 +--weld-nested-containers + +==> b007.in <== +# State 1 + +my $todaysdate + =( 1900 + + $datearr + [5]) + . sprintf( + "%0.2d", + ( $datearr + [ + 3 + ] + )) ; + +# State 2 +my $todaysdate = + ( 1900 + $datearr + [5] ) + . sprintf( + "%0.2d", + ( $datearr + [3] ) + ); + + + +==> b007.par <== +--indent-columns=9 +--maximum-line-length=20 +--weld-nested-containers + +==> b008.in <== +# This is fixed by the update for Bug96 (sub store token_and_space) +# State 1 + +{ + my $warningdate = DateCalc( + $borrower->{'expiry'}, + "- " + . C4::Context->preference( + 'NotifyBorrowerDeparture') + . " days" + ) ; +} + +# State 2 + +{ + my $warningdate = DateCalc( $borrower->{'expiry'}, + "- " . C4::Context->preference('NotifyBorrowerDeparture') . " days" ) ; +} + +==> b008.par <== +--ignore-old-breakpoints +--line-up-parentheses +--space-terminal-semicolon + +==> b011.in <== +# lp bug +open( CVSLOG, + "cvs log $self_path|" ) ; + +open( CVSLOG, + "cvs log $self_path|" +) ; + + +==> b011.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=29 +--space-terminal-semicolon + +==> b012.in <== +# Same as bug 96 + +# State 1 + UpdateStats( + $env, $branch, + 'payment', $data, + '', '', + '', $bornumber ); + +# state 2 + UpdateStats( + $env, $branch, + 'payment', $data, + '', '', + '', $bornumber + ); + +==> b012.par <== +--ignore-old-breakpoints +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=29 +--paren-vertical-tightness-closing=1 + +==> b013.in <== +# Fixed with same fix as for Bug95 +{{{{ + push( @itemloop, + \%overdueitem ); +}}}} + +==> b013.par <== +--ignore-old-breakpoints +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=29 + +==> b016.in <== +# Fixed is same as Bug96, level of spaces created in sub store_token_and_space +# State 1 + +{ + { + { + { + { + push( @subfields_data, + &create_input( '', '', '', $i, $record, $authorised_values_sth ) ); + } + } + } + } +} + +# State 2 + +{ + { + { + { + { + push( + @subfields_data, + &create_input( + '', '', '', $i, $record, $authorised_values_sth + ) + ); + } + } + } + } +} + +==> b016.par <== +--ignore-old-breakpoints +--indent-columns=2 +--line-up-parentheses + +==> b022.in <== +# Same as Bug 96 +# State 1 + push( @loop_data, + \%subfield_data ); + + build_tabs( + $template, $record, + $dbh, $encoding ); + +# State 2 + push( @loop_data, + \%subfield_data + ); + + build_tabs( + $template, + $record, + $dbh, + $encoding + ); + +==> b022.par <== +--ignore-old-breakpoints +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=29 + +==> b023.in <== +# same as Bug96 +# State 1 + my ( + $oldbibid, + $oldauthor, + $oldtitle + ); + + my ( + $dbh, $tags, + $and_or, $operator, + $value + ) = @_; + +# State 2 + + my ( $oldbibid, $oldauthor, + $oldtitle ); + + my ( $dbh, $tags, + $and_or, $operator, + $value ) + = @_; + + +==> b023.par <== +--break-before-all-operators +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--continuation-indentation=8 +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=29 + +==> b024.in <== +# State 1 + my@bind_values=( + $authid,$tag,$subfieldcode ); + +# State 2 + my@bind_values=( + $authid,$tag, + $subfieldcode ); + +==> b024.par <== +--noadd-whitespace +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=7 +--maximum-line-length=45 +--paren-vertical-tightness-closing=1 + +==> b026.in <== + my($nowaiting,$itemswaiting)= + CheckWaiting( + $patroninformation->{ + 'borrowernumber'}); + + my ( $nowaiting, $itemswaiting )= + CheckWaiting ( + $patroninformation->{ + 'borrowernumber'} ) ; + + +==> b026.par <== +--delete-side-comments +--entab-leading-whitespace=4 +--extended-continuation-indentation +--fixed-position-side-comment=41 +--noframes +--nofuzzy-line-length +--ignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-closing-brace +--indent-columns=9 +--indent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=72 +#--keep-old-breakpoints-after='=+' +#--keep-old-breakpoints-before='=+' +--keyword-group-blanks-before=0 +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=17 +--keyword-group-blanks-size='2' +--keyword-paren-inner-tightness=0 +--line-up-parentheses +--nological-padding +--long-block-line-count=53 +--nolook-for-selfloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=77 +--maximum-file-size-mb=4 +--maximum-level-errors=31 +--maximum-line-length=35 +--maximum-unexpected-errors=73 +--nomemoize +--minimum-space-to-comment=7 +--nospace-after-keyword='if our local garbage1' +--nowant-left-space='=~ + ||= ||= != >>= x .= -= >= | < = =~ >= / <=' +--nowant-right-space='.= &= % **= <= -= &&= =~ < //= >>= & =~ =~ x= < .=' +--one-line-block-nesting=47 +--one-line-block-semicolons=9 +--noopening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +##--opening-brace-on-new-line +--opening-hash-brace-right +--opening-paren-right +--noopening-square-bracket-right +--noopening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-long-comments +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=73 +--show-options +--space-after-keyword='do my if do' +--space-function-paren +--space-keyword-paren +--space-prototype-paren=2 +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=2 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--static-side-comments +--tight-secret-operators +--trim-pod +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=0 +--want-break-after='* & /= | == &&= ||= |= % - *= >= / -= <= >>= =' +--want-break-before='>= &= =~ //= ||= == - !~ -= !~ &&= <<= += - < |= .=' +--want-left-space='| <<= + < =~ > /= | =~ -= - <<= **= /= & &&= |=' +--want-right-space='!~ <= - / - &= x &&= -= &&= >= x= != % | < /=' +--weld-nested-containers +#--whitespace-cycle=25 + +==> b027.in <== +# State 1 + + return ( + $dotransfer, + $messages, + $iteminformation + ); + +# State 2 + + return ( $dotransfer, + $messages, + $iteminformation ); + + +==> b027.par <== +--ignore-old-breakpoints +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=29 + +==> b028.in <== +# State 1 + + my $response = + showmessage( getmessage( 'ConfirmPerlExecutableSymlink', $realperl ), + 'yn', 'y', 1 ) ; +# State2 + + my $response = showmessage( + getmessage( + 'ConfirmPerlExecutableSymlink', + $realperl + ), + 'yn', 'y', 1 + ) ; + +==> b028.par <== +--ignore-old-breakpoints +--line-up-parentheses +--space-terminal-semicolon + +==> b031.in <== +# Fixed with same fix as for Bug96, level of spaces created in +# sub store_token_and_space +# State 1 +my %fielddefinitions = ( + printers => [ + { field => 'printername', type => 'char(40)', null => '', key => 'PRI', + default => '' }, + ], +); + +# State 2 + +my %fielddefinitions = ( + printers => + [ { field => 'printername', type => 'char(40)', null => '', key => 'PRI', default => '' }, ], +); + +==> b031.par <== +--comma-arrow-breakpoints=3 +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=95 +--variable-maximum-line-length + +==> b033.in <== + $sth->execute( $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, $subfieldcode, $subfieldorder, + $subfieldvalue ) ; + + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + +==> b033.par <== +--ignore-old-breakpoints +--line-up-parentheses +--space-terminal-semicolon + +==> b034.in <== +# Same as Bug96 +# State 1: +{ + my $xml = + MARC::File::XML::header( C4::Context->preference('TemplateEncoding'), + C4::Context->preference('marcflavour') ) ; +} + +{ + { + { + $sth->execute( $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, $subfieldcode, $subfieldorder, + $subfieldvalue ) ; + } + } +} + +############################################## + +# State 2 + +{ + my $xml = MARC::File::XML::header( + C4::Context->preference( + 'TemplateEncoding'), + C4::Context->preference('marcflavour') + ) ; +} + +{ + { + { + $sth->execute( + $bibid, ( sprintf "%03s", $tagid ), + $tagorder, $tag_indicator, + $subfieldcode, $subfieldorder, + $subfieldvalue + ) ; + } + } +} + +==> b034.par <== +--ignore-old-breakpoints +--line-up-parentheses +--space-terminal-semicolon + +==> b035.in <== +# state 1 +my @frames + = ( 0, 1, + 2 ); + +# state 2 + +my @frames + = ( + 0, 1, 2 + ); + + +==> b035.par <== +--break-before-all-operators +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=3 +--ignore-old-breakpoints +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=13 +--nopass-version-line +--short-concatenation-item-length=91 +--show-options +--space-after-keyword='if our while garbage1' +--space-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--tight-secret-operators +--notrim-pod +--notrim-qw +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b036.in <== +# This can be fixed with the modified list definition (2 commas, or 1 comma and 2 fat commas) +# State 1 + ( + $seqname, + $aln_line + ) + = ( $1, + $2 ); + +# State 2 + + ( + $seqname, + $aln_line + ) + = ( + $1, + $2 ); + + +==> b036.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=1 +--maximum-line-length=13 +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b037.in <== +# State 1 + print p, +"This program also illustrates the power of ", + a( {-href =>'http://www.BioPerl.org/'}, + "BioPerl" + ), + c; + +# State 2 + print p, +"This program also illustrates the power of ", + a( + {-href =>'http://www.BioPerl.org/' + }, + "BioPerl" + ), + c; + + +==> b037.par <== +--noadd-whitespace +--brace-tightness=2 +--brace-vertical-tightness=1 +--continuation-indentation=3 +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=38 +--paren-vertical-tightness=1 +--variable-maximum-line-length + +==> b042.in <== +# State 1 +my @params + = + +( + 'quiet' => 1) + ; + +# State 2 +my @params + = + + ( + 'quiet' + => 1) + ; + +==> b042.par <== +--break-at-old-semicolon-breakpoints +--break-before-paren-and-indent=1 +--break-before-paren=3 +--indent-columns=10 +--keyword-group-blanks-after=2 +--line-up-parentheses +--maximum-line-length=4 +--paren-tightness=2 +--variable-maximum-line-length + +==> b044.in <== +# Same as bug96 + +# State 1 + + my ( + $self, + $sf, + $locstr + ) = @_; + + push( @ret, + @subfth + ); + +# state 2 + + my ( $self, + $sf, + $locstr ) + = @_; + + push( @ret, + @subfth ); + +==> b044.par <== +--ignore-old-breakpoints +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=13 +--variable-maximum-line-length + +==> b047.in <== +my $example2values + = [ 7, 9, + 25 ]; + +my $example2values + = [ + 7, 9, + 25 + ]; + + +==> b047.par <== +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=3 +--maximum-line-length=13 + +==> b048.in <== +BEGIN { + *$func = + sub { + my ( $self, + $value ) + = @_; + } +} + +BEGIN { + *$func = + sub { + my ( $self, + $value ) + = @_; + } +} + +==> b048.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=13 +--variable-maximum-line-length + +==> b049.in <== + my ( + $i, + $len, + $output ) + = ( + 0, 0, '' + ); + + my ( + $i, + $len, + $output ) + = ( 0, 0, + '' ); + +==> b049.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=1 +--maximum-line-length=13 +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b050.in <== +# State 1 + my@organell_names=( + "chloroplast","mitochondr" + ); + +# State 2 + my@organell_names=( + "chloroplast","mitochondr" ); + +==> b050.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=1 +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=53 + +==> b051.in <== +# state 1 +@args = ( + '/usr/bin/compress', '-f', $fileName +); + +# state 2 +@args = ( '/usr/bin/compress', '-f', + $fileName ); + +==> b051.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--indent-columns=1 +--maximum-line-length=41 + +==> b054.in <== + my( + $mchar, + $schar, + $qchar ); + while ( + $mchar + = chop( + $seqString + ) + ) { + ( + $qchar, + $schar ) + = + ( + chop($qseq), + chop($sseq) + ); +} + +==> b054.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=13 +--nopass-version-line +--short-concatenation-item-length=91 +--show-options +--space-after-keyword='if our while garbage1' +--space-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--tight-secret-operators +--notrim-pod +--notrim-qw +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b055.in <== +# Same as Bug96 +# State 1 + $seq = substr( $self->seq_str ('match'), + $beg - $start, + ( $end - $beg ) ); + +# State 2 + $seq = substr( + $self->seq_str ('match'), + $beg - $start, + ( $end - $beg ) + ); + +==> b055.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=56 +--space-function-paren + +==> b057.in <== +# State 1 +@TypeUnivAln=( + 'unknown','dna', + 'rna','amino', + 'otherseq' +); + +# State 2 +@TypeUnivAln=( + 'unknown','dna','rna','amino','otherseq' ); + +==> b057.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=1 +--line-up-parentheses +--maximum-line-length=53 + +==> b058.in <== +# Same as bug 96 +# State 1 + $Blast->throw( "Not a function reference: $func", + "The -filt_func parameter must be function reference." ) ; + +# State 2 + $Blast->throw( "Not a function reference: $func", + "The -filt_func parameter must be function reference." + ) ; + + +==> b058.par <== +--ignore-old-breakpoints +--line-up-parentheses +--space-terminal-semicolon + +==> b062.in <== +@hits = ( + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 2378, 4024, 9696, 7314, + 7710 +) ; + +==> b062.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--ignore-old-breakpoints +--maximum-line-length=33 +--space-terminal-semicolon + +==> b064.in <== +# State 1 + +sub bb { + for ( my $i = + $first, + my $j = 0 ; + $i <= + $last ; + ) + { + ...; + } +} + +# State 2 (changed sub name to avoid perltidy message) + +sub bB { + for ( + my $i = + $first, + my $j = 0 ; + $i <= + $last ; + ) + { + ...; + } +} +__END__ + +==> b064.par <== +--line-up-parentheses +--maximum-line-length=20 + +==> b068.in <== +# State 1 + for ($r[0] + = 0, + my $i + = 1; + $i + <= $k + ; + $i++) + +# State 2 + for ( + $r[0] + = 0, + my $i + = 1; + $i + <= $k + ; + $i++ + ) + +==> b068.par <== +--noadd-whitespace +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=20 + +==> b069.in <== +return + map { + ( + $x[$_], + $y[$_] + ) + } 0 + .. $#h; + +return + map +{ ( + $x[$_], + $y[$_] + ) + } 0 + .. $#h; + +==> b069.par <== +--maximum-line-length=7 +--norecombine +--stack-opening-paren # +--vertical-tightness-closing=0 +--vertical-tightness=0 + +--variable-maximum-line-length +#--nospace-terminal-semicolon +#--square-bracket-tightness=2 +#--square-bracket-vertical-tightness-closing=2 +#--stack-opening-hash-brace +#--nostack-opening-square-bracket +#--space-keyword-paren +#--space-prototype-paren=0 +#--tabs +#--tight-secret-operators +#--notrim-pod +#--use-unicode-gcstring +#--novalign +#--short-concatenation-item-length=30 +#--show-options +#--space-after-keyword='if if garbage1 34' +#--nospace-function-paren +#--stack-closing-block-brace +#--stack-closing-hash-brace +#--stack-closing-paren +#--nostack-closing-square-bracket + +==> b071.in <== +my ( $lo_val, $hi_val ) = + +( &{$func}($lo_guess), + &{$func}($hi_guess) ); + +my ( $lo_val, $hi_val ) = + + ( + &{$func}($lo_guess), + &{$func}($hi_guess) ); + +==> b071.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=4 +--maximum-line-length=41 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=2 + +==> b075.in <== + $sq->prepend ( + $cu->first->remove ( + $three) ); + + $sq->prepend ( $cu->first + ->remove ($three) ); + +==> b075.par <== +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=43 +--space-function-paren +--weld-nested-containers + +==> b077.in <== +# state 1 + +{ + my $S + = {G => $G + }; +} +# State 2 + +{ + my $S + = { G => + $G + }; +} + +==> b077.par <== +--brace-vertical-tightness=1 +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--continuation-indentation=3 +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=7 +--norecombine +--variable-maximum-line-length + +==> b085.in <== + push @ARGV2 => + [ $dir, $intermediate++ ]; + + push @ARGV2 => + [ + $dir, $intermediate++ ]; + + +==> b085.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=1 +--indent-columns=9 +--maximum-line-length=31 +--square-bracket-vertical-tightness-closing=1 +--variable-maximum-line-length + +==> b090.in <== +# State 1 + +my $rows = +{ 1 => [ 1, 2, 3 ], 2 => [ 4, 5, 6 ], 3 => [ 7, 8, 9 ], 4 => [ 10, 11, 12 ], }; + +# State 2 + +my $rows = + { + 1 => [ 1, 2, 3 ], + 2 => [ 4, 5, 6 ], + 3 => [ 7, 8, 9 ], + 4 => [ 10, 11, 12 ], + }; + +==> b090.par <== +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--comma-arrow-breakpoints=2 # Why?? + +==> b1002.in <== + @cmd= + ( MIME::Base64::encode_base64( + defined $token + ? $token + : '', + '' + ) ); + +==> b1002.par <== +--continuation-indentation=10 +--indent-columns=9 +--maximum-line-length=53 +--nowant-left-space='<<= **= & .= **= =~ != = |= -= * |= & =~ |= !~ &' +--paren-vertical-tightness=2 +--weld-nested-containers + +==> b1003.in <== +is( + $CALC + ->_str($CALC->_from_hex($CALC->_as_hex( + $CALC->_new("128") + ))), + 128, +qq|$CALC->_str($CALC->_from_hex($CALC->_as_hex(| + . qq|$CALC->_new("128")))) = 128| +); + +is( + $CALC->_str($CALC->_from_hex( + $CALC->_as_hex( + $CALC->_new("128") + ) + )), + 128, +qq|$CALC->_str($CALC->_from_hex($CALC->_as_hex(| + . qq|$CALC->_new("128")))) = 128| +); + +==> b1003.par <== +--continuation-indentation=10 +--extended-continuation-indentation +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=53 +--paren-tightness=2 +--weld-nested-containers + +==> b1004.in <== + @cmd= + ( MIME::Base64::encode_base64( + $str, '' + ) ); + + @cmd= ( MIME::Base64::encode_base64( + $str, '' + ) + ); + +==> b1004.par <== +--continuation-indentation=10 +--indent-columns=9 +--maximum-line-length=53 +--nowant-left-space='<<= **= & .= **= =~ != = |= -= * |= & =~ |= !~ &' +--paren-vertical-tightness=2 +--weld-nested-containers + +==> b1005.in <== +# S1 + $x= + &{$C + ."::__strip_zeros" + } + ([0,1,2,0,0,0]); + +# S2 + $x= + &{$C + ."::__strip_zeros" + }( + [ + 0,1, + 2,0, + 0,0 + ] + ); + +==> b1005.par <== +--noadd-whitespace +--extended-continuation-indentation +--ignore-old-breakpoints +--maximum-line-length=22 +--weld-nested-containers + +==> b1006.in <== +# S1 + +is( + $CALC->_str + (scalar( + $CALC->_div( + $x,$y + ) + )), + 3, +qq|$CALC->_str(scalar($CALC->_div(\$x, \$y))) = 3| +); + +# S2 + +is( + $CALC->_str( + scalar( + $CALC + ->_div + ( + $x,$y + ) + ) + ), + 3, +qq|$CALC->_str(scalar($CALC->_div(\$x, \$y))) = 3| +); + + +==> b1006.par <== +--noadd-whitespace +--continuation-indentation=7 +--ignore-old-breakpoints +--maximum-line-length=22 +--weld-nested-containers + +==> b1007.in <== +# S1 + $wrapper_pkg= + undef + if( + exists + ( + $reusable_builtins{ + $call + } + ) + ) ; + +# S2 + + $wrapper_pkg= + undef + if + (exists( + $reusable_builtins{ + $call + } + )) ; + +==> b1007.par <== +--noadd-whitespace +--continuation-indentation=7 +--extended-continuation-indentation +--maximum-line-length=22 +--norecombine +--weld-nested-containers + +==> b1008.in <== +# Use test.pro.bak + +# S1 + unless + (get_cache( + $Dircache, + \@Podpath, + $Podroot, + $Recurse + )) + +# S2 + unless( + get_cache( + $Dircache, + \@Podpath, + $Podroot, + $Recurse + ) + ) + +==> b1008.par <== +--noadd-whitespace +--indent-columns=6 +--maximum-line-length=22 +--weld-nested-containers + +==> b1009.in <== +# S1 + + $hub->listen( + sub{ + push + @events + => + $_ + [ + 1 + ] + ; + } + ); + +# S2 + $hub->listen + (sub{ + push + @events + =>$_ + [1 + ]; + }); + + +==> b1009.par <== +--noadd-whitespace +--continuation-indentation=7 +--indent-columns=6 +--maximum-line-length=22 +--weld-nested-containers + +==> b1010.in <== + unless( + run( + command=> + $cmd, + buffer=> + \ + $head, + verbose=> + $DEBUG + ) + ) +# S2 + unless + (run( + command=> + $cmd, + buffer=> + \$head, + verbose=> + $DEBUG + )) + +==> b1010.par <== +--noadd-whitespace +--indent-columns=6 +--maximum-line-length=22 +--weld-nested-containers + +==> b1011.in <== +# S1 + $hub->listen + (sub{ + push + @$subevents + =>$_ + [1 + ]; + }); + +# S2 + $hub->listen( + sub{ + push + @$subevents + => + $_ + [ + 1 + ] + ; + } + ); + +==> b1011.par <== +--noadd-whitespace +--continuation-indentation=7 +--indent-columns=6 +--maximum-line-length=22 +--weld-nested-containers + +==> b1012.in <== + if ( + length( + int( + $yorg + -> + [ + -1 + ] + ) + ) > + length( + int( + $x + -> + [ + -1 + ] + ) + ) + ) + +# + if ( + length + (int( + $yorg + -> + [ + -1 + ] + )) + >length + (int( + $x->[ + -1 + ] + )) + ) + + +==> b1012.par <== +--noadd-whitespace +--continuation-indentation=7 +--maximum-line-length=22 +--weld-nested-containers + +==> b1013.in <== + if + ( eval { + require + POSIX + ; + } ) + +__END__ +# S2 + + if ( eval + { + require + POSIX + ; + } + ) + +==> b1013.par <== +--delete-old-whitespace +--indent-columns=6 +--maximum-line-length=22 +--short-concatenation-item-length=54 +--space-after-keyword='garbage1 my my local' +--space-backslash-quote=0 +--nospace-for-semicolon +--nospace-function-paren +--space-keyword-paren +--space-prototype-paren=2 +--space-terminal-semicolon +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +#--tabs +--tight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=2 +--weld-nested-containers + +==> b1014.in <== +# S1 + for + my $f ( Archive::Tar + ->list_archive ( $perl->{source} ) ) + +__END__ +# S2 + for + my $f ( + Archive::Tar->list_archive ( + $perl->{source} ) ) + + +==> b1014.par <== +--maximum-line-length=36 +--norecombine +--space-function-paren +--variable-maximum-line-length +--weld-nested-containers + +==> b1016.in <== +# S1 +return $dir eq File::Spec->rootdir ? + File::Spec->catpath ( $vol, $dir, + $file ) : + fast_abs_path ( File::Spec + ->catpath ( $vol, $dir, '' ) ) . + '/' . $file; + +# S2 + +return $dir eq File::Spec->rootdir ? + File::Spec->catpath ( $vol, $dir, + $file ) : + fast_abs_path ( + File::Spec->catpath ( $vol, $dir, + '' ) ) . + '/' . $file; + +==> b1016.par <== +--break-after-all-operators +--ignore-old-breakpoints +--maximum-line-length=36 +--space-function-paren +--variable-maximum-line-length +--weld-nested-containers + +==> b1017.in <== +# S1 + $res .= + chr + (utf8::unicode_to_native( + ord(substr($str, $i,1)) + )); +# S2 + $res .= + chr( + utf8::unicode_to_native( + ord( + substr( + $str, $i, + 1 + ) + ) + ) + ); + + +==> b1017.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=41 +--weld-nested-containers + +==> b1018.in <== +# S1 +foreach my $table + (( + 'borrowers', + 'items', + 'biblio', + 'biblioitems' + )) +__END__ +# S2 +foreach my $table( + ( +'borrowers', + 'items', + 'biblio', +'biblioitems' + ) + ) + +==> b1018.par <== +--noadd-whitespace +--continuation-indentation=9 +--ignore-old-breakpoints +--maximum-line-length=18 +--weld-nested-containers + +==> b1019.in <== +# S1: welded but no equals break; this has length 70 +my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( { + template_name => "opac-sendbasketform.tmpl", + query => $query, + type => "opac", + authnotrequired => 1, + flagsrequired => { borrow => 1 }, +} ); + +# S2: Equals break, not welded. This welds but also removes the = break +# So we want to keep the = break if we make a weld +my ( $template, $borrowernumber, $cookie ) = + get_template_and_user ( + { + template_name => "opac-sendbasketform.tmpl", + query => $query, + type => "opac", + authnotrequired => 1, + flagsrequired => { borrow => 1 }, + } + ); + +==> b1019.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=70 +--space-function-paren +--space-keyword-paren +--variable-maximum-line-length +--weld-nested-containers + +==> b1020.in <== +# S1 +{ +return( self->_testStrand($other,$so)and not(( + $self->start()>$other->end() + or$self->end()<$other->start() + )) + ); +} + +# S2 +{ +return( self->_testStrand($other,$so) + and not( + ( $self->start()>$other->end() + or$self->end()<$other->start() + ) + ) + ); +} + +==> b1020.par <== +--noadd-whitespace +--delete-old-whitespace +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=46 +#--outdent-keywords +--short-concatenation-item-length=84 +--show-options +--space-after-keyword='do local while our' +--space-backslash-quote=2 +--nospace-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--static-side-comments +--notight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=2 +--weld-nested-containers + +==> b1021.in <== +# S1 +$self->{LIBS} = + ['-lndbm', + -e "/usr/lib/libdbm.nfs.a" + ? '-ldbm.nfs' + : '-ldbm'] ; + +$self->{LIBS} = ['-lndbm', + -e "/usr/lib/libdbm.nfs.a" ? '-ldbm.nfs' : '-ldbm'] ; + +==> b1021.par <== +--break-before-square-bracket=1 +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=65 +--space-terminal-semicolon +--square-bracket-tightness=2 + +==> b1022.in <== +# State 1: This should stay static +use Test::Requires { + 'MooseX::MarkAsMethods' => 0, +}; + +# State 2: +use Test::Requires { + 'MooseX::MarkAsMethods' + => 0, }; + +==> b1022.par <== +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=6 +--maximum-line-length=35 + +==> b1024.in <== +# S1 +my%fielddefinitions=( + z3950servers=> + [ + {field=>'id',type=>'int(11)',null=>'',key=>'PRI',default=>'',extra=>'auto_increment'}, + ], + +); + +# S2 +my%fielddefinitions=( + z3950servers=>[ + {field=>'id',type=>'int(11)',null=>'',key=>'PRI',default=>'',extra=>'auto_increment' + }, + ], + +); + +==> b1024.par <== +--noadd-whitespace +--brace-tightness=2 +--brace-vertical-tightness-closing=2 +--brace-vertical-tightness=1 +--break-before-square-bracket=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=8 +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=99 + +==> b1025.in <== +# S1 +use Test::Requires { + 'DateTime' => + '0', +}; + +# S2 +use Test::Requires { + 'DateTime' + => '0', }; + +==> b1025.par <== +--continuation-indentation=9 +--extended-continuation-indentation +--indent-columns=5 +--maximum-line-length=22 + +==> b1026.in <== +# S1 +use Test::Requires { + 'Locale::US' + => '0', + 'Regexp::Common' + => '0', +}; + +# S2 +use Test::Requires { + 'Locale::US' => + '0', +'Regexp::Common' + => '0', +}; + +==> b1026.par <== +--extended-continuation-indentation +--indent-columns=5 +--maximum-line-length=21 + +==> b1027.in <== +use Test::Requires { + 'Locale::US' => + '0', +'Regexp::Common' + => '0', +}; + + +==> b1027.par <== +--continuation-indentation=9 +--extended-continuation-indentation +--maximum-line-length=22 + +==> b1028.in <== +use Test::Requires { + 'DBM::Deep' => + '1.0003', +'DateTime::Format::MySQL' + => '0', +}; + + +==> b1028.par <== +--continuation-indentation=9 +--extended-continuation-indentation +--indent-columns=5 +--maximum-line-length=22 + +==> b1029.in <== +# S1 +use Test::Requires { + 'Archive::Zip' => + 0, +'Test::DependentModules' + => '0.13', + 'MetaCPAN::API' + => '0.33', +}; + +use Test::Requires { + 'Archive::Zip' + => 0, +'Test::DependentModules' + => '0.13', + 'MetaCPAN::API' + => '0.33', +}; + + +==> b1029.par <== +--extended-continuation-indentation +--maximum-line-length=22 + +==> b103.in <== +# State 1 + my @tail =( + @buf[ ($i % (-$p)+ 1) .. $#buf ], + @buf[ 0 .. $i % (-$p) ]); + +# State 2 + my @tail = + (@buf[ ($i % (-$p)+ 1) .. $#buf ], + @buf[ 0 .. $i % (-$p) ]); + +==> b103.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--indent-columns=8 +--maximum-line-length=63 +--opening-brace-always-on-right + +==> b1030.in <== +use Test::Requires { + 'Types::Standard' + => 0.021_03 }; + +use Test::Requires { + 'Types::Standard' => + 0.021_03 +}; + +==> b1030.par <== +--continuation-indentation=9 +--extended-continuation-indentation +--maximum-line-length=23 +--variable-maximum-line-length + +==> b1031.in <== +# S1 +@EXPORT + =( + &INVALID_BOOLEAN_STRING_EXCEPTION + ); + +# S2 +@EXPORT + =( &INVALID_BOOLEAN_STRING_EXCEPTION + ); + +==> b1031.par <== +--break-before-all-operators +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=34 +--nowant-right-space='!= = -= !~ //= %= *= <<= &= != %= == %= + & |= <' +--paren-tightness=2 + +==> b1032.in <== + $a=1 + if( + (defined( + $seq[$current] + ) ) + &&($seq[$current] + ->annotation + ->each_Comment) + ); + + $a=1 + if((defined( + $seq[$current] + )) + &&($seq[$current] + ->annotation + ->each_Comment) + ); + + $a=1 + if( + (defined( + $seq[$current] + ) + ) + &&($seq[$current] + ->annotation + ->each_Comment) + ); + +==> b1032.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=29 +--weld-nested-containers +--stack-opening-paren # ?? +--vertical-tightness=2 # Essential + +#--vertical-tightness-closing=1 # Optional + +#--novariable-maximum-line-length +#--nostack-closing-paren +#--space-keyword-paren +#--space-prototype-paren=2 +#--space-terminal-semicolon +#--space-function-paren +#--square-bracket-tightness=2 +#--square-bracket-vertical-tightness-closing=1 +#--square-bracket-vertical-tightness=1 +#--nostack-closing-block-brace +#--stack-closing-hash-brace +#--stack-opening-hash-brace +#--nostack-closing-square-bracket +#--nospace-for-semicolon +#--nostack-opening-square-bracket +#--nostatic-block-comments +#--notrim-qw +#--tight-secret-operators +#--notrim-pod +#--use-unicode-gcstring +#--novalign +#--norecombine +#--short-concatenation-item-length=32 +#--show-options +#--space-after-keyword='34 local our local' +#--space-backslash-quote=2 + +==> b1033.in <== +# S1 +my @names = + ( + qw(HV_DELETE HV_DISABLE_UVAR_XKEY HV_FETCH_ISSTORE + HV_FETCH_ISEXISTS HV_FETCH_LVALUE HV_FETCH_JUST_SV + G_SCALAR G_ARRAY G_VOID G_DISCARD G_EVAL G_NOARGS + G_KEEPERR G_NODEBUG G_METHOD G_FAKINGEVAL + GV_NOADD_NOINIT + IS_NUMBER_IN_UV IS_NUMBER_GREATER_THAN_UV_MAX + IS_NUMBER_NOT_INT IS_NUMBER_NEG IS_NUMBER_INFINITY + IS_NUMBER_NAN IS_NUMBER_TRAILING PERL_SCAN_TRAILING + PERL_LOADMOD_DENY PERL_LOADMOD_NOIMPORT PERL_LOADMOD_IMPORT_OPS + ), + { name => "G_WANT", default => [ "IV", "G_ARRAY|G_VOID" ] } + ); + +# S2 +my @names = ( + qw(HV_DELETE HV_DISABLE_UVAR_XKEY HV_FETCH_ISSTORE + HV_FETCH_ISEXISTS HV_FETCH_LVALUE HV_FETCH_JUST_SV + G_SCALAR G_ARRAY G_VOID G_DISCARD G_EVAL G_NOARGS + G_KEEPERR G_NODEBUG G_METHOD G_FAKINGEVAL + GV_NOADD_NOINIT + IS_NUMBER_IN_UV IS_NUMBER_GREATER_THAN_UV_MAX + IS_NUMBER_NOT_INT IS_NUMBER_NEG IS_NUMBER_INFINITY + IS_NUMBER_NAN IS_NUMBER_TRAILING PERL_SCAN_TRAILING + PERL_LOADMOD_DENY PERL_LOADMOD_NOIMPORT PERL_LOADMOD_IMPORT_OPS + ), + { + name => "G_WANT", + default => [ "IV", "G_ARRAY|G_VOID" ] + } +); + +==> b1033.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1034.in <== +# S1 + $record = + MARChtml2marc( $dbh, \@tags, \@subfields, \@values, + \@firstsubfields, \@indicator, \@ind_tag ); + +# S2 + $record = + MARChtml2marc( + $dbh, \@tags, + \@subfields, \@values, + \@firstsubfields, \@indicator, + \@ind_tag + ); + +==> b1034.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=63 + +==> b1035.in <== +push @moreopts, + INSTALLDIRS => + ( ( $] >= 5.005 and $] < 5.011 ) ? 'perl' : + 'site' ) ; + +push @moreopts, + INSTALLDIRS => ( + ( $] >= 5.005 and $] < 5.011 ) ? 'perl' : 'site' ) ; + + +==> b1035.par <== +--break-after-all-operators +--nobreak-at-old-ternary-breakpoints +#--continuation-indentation=9 +--continuation-indentation=4 +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=55 +--space-terminal-semicolon +--variable-maximum-line-length + +==> b1036.in <== +# State 1 + my @tests = ( + { file => 'simple', name => 'Create empty', }, + { + file => 'todo_inline', + name => 'Passing TODO', + }, + ); + +# State 2 + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + +==> b1036.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1036a.in <== + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { + file => 'todo_inline', + name => 'Passing TODO', + }, + ); + + my @tests = + ( + { file => 'simple', name => 'Create empty', }, + { file => 'todo_inline', name => 'Passing TODO', }, + ); + +==> b1036a.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=68 + +==> b1037.in <== +# s1 +my @cases = + ( + [ 'Thwack', 'package Thwack; XSLoader::load(); 1' ], + [ 'Zlott', 'package Thwack; XSLoader::load("Zlott"); 1' ], + ); + +# s2 +my @cases = ( + [ 'Thwack', 'package Thwack; XSLoader::load(); 1' ], + [ + 'Zlott', + 'package Thwack; XSLoader::load("Zlott"); 1' + ], +); + +==> b1037.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1038.in <== +# S1 + @_ = + ( + join( " ", sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + +# S2 + @_ = ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + + +==> b1038.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 +--opening-brace-always-on-right + +==> b1039.in <== +# S1 +Moose::Exporter + ->setup_import_methods( + as_is=>[qw( + type subtype class_type role_type maybe_type duck_type + as where message inline_as + coerce from via + enum union + find_type_constraint + register_type_constraint + match_on_type ) + ], + ); + +# S2 +Moose::Exporter + ->setup_import_methods( + as_is=>[qw( + type subtype class_type role_type maybe_type duck_type + as where message inline_as + coerce from via + enum union + find_type_constraint + register_type_constraint + match_on_type ) ], + ); + +==> b1039.par <== +--noadd-whitespace +--break-before-square-bracket=3 +--continuation-indentation=1 +--delete-old-whitespace +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=15 +--square-bracket-vertical-tightness-closing=2 +--stack-opening-paren +--variable-maximum-line-length +--weld-nested-containers + +==> b1040.in <== +# S1 + my $testport = ( + Socket::unpack_sockaddr_in6 $testserver->sockname ) + [0] ; +# S2 + my $testport = + ( Socket::unpack_sockaddr_in6 $testserver-> + sockname )[0] ; + +==> b1040.par <== +--continuation-indentation=9 +--extended-continuation-indentation +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=55 +--opening-paren-right +--short-concatenation-item-length=45 +--space-after-keyword='our garbage1 if garbage1' +--space-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=2 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--notight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=1 + +==> b1041.in <== +# S1 + $host= + ( split( +/[:. ]/, +`/com/host`, + 6 + ) + )[0]; + +# S2 + $host + =(split( +/[:. ]/, +`/com/host`, + 6 + ))[0]; + + + +==> b1041.par <== +--noadd-whitespace +--break-before-all-operators +--break-before-paren=3 +--continuation-indentation=3 +--delete-old-whitespace +--indent-columns=5 +--maximum-line-length=26 +--vertical-tightness=2 +--weld-nested-containers + +==> b1042.in <== +# S1 + @_ = + ( + join( " ", sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); +# S2 + @_ = ( + join( " ", + sort @{ mro::get_isarev $args[0] } ), + join( " ", sort @args[ 1 .. $#args - 1 ] ), + pop @args + ); + +==> b1042.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 +--opening-brace-always-on-right + +==> b1043.in <== +# S1 + my $addr = + ( + DynaLoader::dl_find_symbol( + $handle,uc $prefix.$name + ) + ||DynaLoader::dl_find_symbol( + $handle, $prefix.$name + ) + ); + +# S2 + + my $addr =( + DynaLoader::dl_find_symbol($handle, + uc $prefix.$name) + ||DynaLoader::dl_find_symbol( + $handle, $prefix.$name + ) + ); + +==> b1043.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 +--opening-brace-always-on-right + +==> b1044.in <== +# S1 +my @names = + ( + qw( + AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT + UIO_MAXIOV + ), + {name=>"IPPROTO_IP",type=>"IV",default=>["IV", 0]}, + {name=>"IPPROTO_IPV6",type=>"IV",default=>["IV", 41]}, + ); + +my @names =( + qw( + AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT + UIO_MAXIOV + ), + {name=>"IPPROTO_IP",type=>"IV",default=>["IV", 0]}, + { + name=>"IPPROTO_IPV6", + type=>"IV", + default=>["IV", 41] + }, +); + +==> b1044.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=68 + +==> b1045.in <== +# S1 +my @bodies =( + + ['f99', 1, 1, 0,qr/^$/,], + [ + '$x=', 0, 0, 0, + qr/syntax error/, + ], +); + +# S2 +my @bodies = + ( + + ['f99', 1, 1, 0,qr/^$/,], + ['$x=', 0, 0, 0,qr/syntax error/,], + ); + +==> b1045.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=68 + +==> b1046.in <== +# S1 +my @boolfunc =( + { + name => "Exclusion",type => "bool", + hash => \%Exclus, + }, + { + name => "Singleton",type => "bool", + hash => \%Single, + }, + { + name => "NonStDecomp", + type => "bool", + hash => \%NonStD, + }, +); + +# S2 +my @boolfunc = + ( + {name => "Exclusion",type => "bool",hash => \%Exclus,}, + {name => "Singleton",type => "bool",hash => \%Single,}, + {name => "NonStDecomp",type => "bool",hash => \%NonStD,}, + ); + +==> b1046.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1047.in <== +# S1 + @GZIP_OS_Names = ( + [ '' => 0, 'MS-DOS' ], + [ 'amigaos' => 1, 'Amiga' ], + [ 'VMS' => 2, 'VMS' ], + [ '' => 3, 'Unix/Default' ], + [ '' => 4, 'VM/CMS' ], + [ '' => 5, 'Atari TOS' ], + [ 'os2' => 6, 'HPFS (OS/2, NT)' ], + [ 'MacOS' => 7, 'Macintosh' ], + [ '' => 8, 'Z-System' ], + [ '' => 9, 'CP/M' ], + [ '' => 10, 'TOPS-20' ], + [ '' => 11, 'NTFS (NT)' ], + [ '' => 12, 'SMS QDOS' ], + [ '' => 13, 'Acorn RISCOS' ], + [ + 'MSWin32' => 14, + 'VFAT file system (Win95, NT)' + ], + [ '' => 15, 'MVS' ], + [ 'beos' => 16, 'BeOS' ], + [ '' => 17, 'Tandem/NSK' ], + [ '' => 18, 'THEOS' ], + [ '' => 255, 'Unknown OS' ], + ); + +# S2 + @GZIP_OS_Names = + ( + [ '' => 0, 'MS-DOS' ], + [ 'amigaos' => 1, 'Amiga' ], + [ 'VMS' => 2, 'VMS' ], + [ '' => 3, 'Unix/Default' ], + [ '' => 4, 'VM/CMS' ], + [ '' => 5, 'Atari TOS' ], + [ 'os2' => 6, 'HPFS (OS/2, NT)' ], + [ 'MacOS' => 7, 'Macintosh' ], + [ '' => 8, 'Z-System' ], + [ '' => 9, 'CP/M' ], + [ '' => 10, 'TOPS-20' ], + [ '' => 11, 'NTFS (NT)' ], + [ '' => 12, 'SMS QDOS' ], + [ '' => 13, 'Acorn RISCOS' ], + [ 'MSWin32' => 14, 'VFAT file system (Win95, NT)' ], + [ '' => 15, 'MVS' ], + [ 'beos' => 16, 'BeOS' ], + [ '' => 17, 'Tandem/NSK' ], + [ '' => 18, 'THEOS' ], + [ '' => 255, 'Unknown OS' ], + ); + +==> b1047.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1048.in <== +# S1 + $titles + .= ( + $timestamp ? format_date($timestamp) + : "" ) + . ";"; + +# S2 + $titles + .= ( $timestamp + ? format_date($timestamp) + : "" ) + . ";"; + +==> b1048.par <== +--break-before-all-operators +--continuation-indentation=5 +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=39 +--variable-maximum-line-length + +==> b1049.in <== +# s1 + $link.= + ($link + ?'/' + :'') + .'"' + .$node.'"'; +# S2 + + $link.= + ( + $link?'/':'') + .'"' + .$node.'"'; + +==> b1049.par <== +--noadd-whitespace +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=14 +--paren-tightness=2 +--variable-maximum-line-length + +==> b1050.in <== +#s1 + $uidl + =($me + ->message + =~/\d+\s+([\041-\176]+)/ + )[0]; + +# s2 + $uidl + =( + $me->message + =~/\d+\s+([\041-\176]+)/ + )[0]; + + +==> b1050.par <== +--noadd-whitespace +--break-before-all-operators +--continuation-indentation=9 +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=14 +--variable-maximum-line-length + +==> b1051.in <== + my @records= + ( + {separator => '0',effective => '',text => 'ab'}, + {separator => ';',effective => ';',text => 'a;b'}, + ) ; + + my @records=( + { + separator => '0', + effective => '', + text => 'ab' + }, + { + separator => ';', + effective => ';', + text => 'a;b' + }, + ) ; + +==> b1051.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +==> b1052.in <== +# S1 + my ( $lname, $sname ) = ( + $subname, + substr( + $subname, 0, + $maxflen - 3 + ) + ); +#S2 + my ( $lname, $sname ) = + ( + $subname, + substr( $subname, 0, $maxflen - 3 ) + ); + + my ( $lname, $sname ) = ( + $subname, + substr( + $subname, 0, + $maxflen - 3 + ) + ); + +==> b1052.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=6 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 +--opening-brace-always-on-right + +==> b1053.in <== + $_++ + foreach sub : + lvalue { + %h = ( + $x, $x + ); + } + ->(); + + $_++ + foreach sub + : lvalue { + %h = ( + $x, $x + ); + } + ->(); + +==> b1053.par <== +--continuation-indentation=7 +--ignore-old-breakpoints +--indent-columns=5 +--maximum-line-length=25 + +==> b1054.in <== +# S1 + $all_passed &= is( $fastc, $fastr, + "right col tag should be bottom row tag" ) ; +#S2 + $all_passed + &= is( $fastc, $fastr, + "right col tag should be bottom row tag" + ) ; + + $all_passed &= is( $fastc, $fastr, + "right col tag should be bottom row tag" ) ; + +==> b1054.par <== +--line-up-parentheses +--maximum-line-length=55 +--space-terminal-semicolon +--variable-maximum-line-length +--want-break-before='|= * &= > &= | %= *= ||= .= == &&= &= .= += >= !~' + +==> b1055.in <== +# S1 + my @tests = ( + [$x], + [ + [ [ +"aa", +"b", +"c" + ] ] + => "SubField must have two parts" + ], + ); + +# S2 + my @tests = ( + [$x], + [ [ [ +"aa", +"b", +"c" + ] + ] + => "SubField must have two parts" + ], + ); + +==> b1055.par <== +--indent-columns=6 +--maximum-line-length=21 +--stack-opening-square-bracket +--weld-nested-containers + +==> b1056.in <== +# S1 + my$nt= + ($^O eq + 'os2' + ?'' + :'not'); +#S2 + my$nt= + ( + $^O eq 'os2' + ?'' + :'not'); + +==> b1056.par <== +--noadd-whitespace +--continuation-indentation=9 +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=14 +--variable-maximum-line-length + +==> b1057.in <== +# S1 + is_deeply( + [ + [ + OUT_STD, "Bail out! foo bar baz\n" + ] + ], + ); + +# S2 + is_deeply( [ [ OUT_STD, "Bail out! foo bar baz\n" ] ], + ); + +==> b1057.par <== +--continuation-indentation=9 +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=62 +--weld-nested-containers + +==> b1057a.in <== + is_deeply( + [ + $it->halt_tap( + { + control => {details => 0} + } + ) + ], + [[OUT_STD, "Bail out! 0\n"]], + "falsy details" + ); + + is_deeply( + [ + $it->halt_tap({control => {details => 0}}) + ], + [[OUT_STD, "Bail out! 0\n"]], + "falsy details" + ); + +==> b1057a.par <== +--noadd-whitespace +--brace-vertical-tightness=1 +--continuation-indentation=9 +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=62 +--weld-nested-containers + +==> b1058.in <== +# S1 +like ( + exception { + $params->parameterized ( + { + a => 'Hello', + b => 'World' + } ); + }, +); + +#S2 +like ( + exception { + $params->parameterized ( + { a => 'Hello', + b => 'World' } + ); + }, +); + +==> b1058.par <== +--comma-arrow-breakpoints=3 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=50 +--space-function-paren +--stack-closing-paren + +==> b1059.in <== +# S1 + my($got)= + ParseParameters( + 0, + { + 'bufsize'=> + [IO::Compress::Base::Common::Parse_unsigned,4096], + 'windowbits'=> + [IO::Compress::Base::Common::Parse_signed,MAX_WBITS()], + 'dictionary'=>[IO::Compress::Base::Common::Parse_any,""], + }, + @_ + ); + +# S2 + + my($got)= + ParseParameters( + 0, + { + 'bufsize'=> + [IO::Compress::Base::Common::Parse_unsigned,4096], + 'windowbits'=> + [IO::Compress::Base::Common::Parse_signed,MAX_WBITS()], + 'dictionary'=>[IO::Compress::Base::Common::Parse_any,""], + }, + @_ + ); + +==> b1059.par <== +--noadd-whitespace +--continuation-indentation=0 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=64 + +==> b106.in <== +# State 1 + my @tail = + (@buf[ ($i % (-$p)+ 1) .. $#buf ], + @buf[ 0 .. $i % (-$p) ]); +# State 2 + my @tail =( + @buf[ ($i % (-$p)+ 1) .. $#buf ], + @buf[ 0 .. $i % (-$p) ]); + +==> b106.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--indent-columns=8 +--maximum-line-length=63 +--opening-brace-always-on-right + +==> b1060.in <== +# S1 +my $lxy = + ( @$cx - @$cy ) || + ( + length ( int ( $cx->[-1] ) ) - + length ( int ( $cy->[-1] ) ) ); + +# S2 +my $lxy = ( @$cx - @$cy ) || ( + length ( int ( $cx->[-1] ) ) - + length ( int ( $cy->[-1] ) ) ); + +==> b1060.par <== +# Seems to be conflict between break after || and opening paren right +--break-after-all-operators +--maximum-line-length=61 +--opening-paren-right + +#--stack-closing-paren +#--nostack-opening-paren +#--vertical-tightness-closing=1 +#--vertical-tightness=0 +#--stack-closing-block-brace +#--stack-closing-hash-brace +#--nostack-closing-square-bracket +#--nostack-opening-hash-brace +#--space-keyword-paren +#--space-prototype-paren=2 +#--nospace-terminal-semicolon +#--stack-opening-square-bracket +#--square-bracket-vertical-tightness-closing=2 +#--square-bracket-vertical-tightness=1 +#--nostatic-block-comments +#--tight-secret-operators +#--notrim-pod +#--notrim-qw +#--use-unicode-gcstring +#--novalign +#--variable-maximum-line-length +#--short-concatenation-item-length=91 +#--space-after-keyword='my if do while' +#--space-backslash-quote=0 +#--nospace-function-paren + +==> b1061.in <== +# S1 +my @subnormals = + ( + [ '1e-320', '%a', '0x1.fap-1064' ], + [ '3e-324', '%.1a', '0x1.0p-1074' ], + ['0x1.fffffffffffffp-1022', '%a','0x1.fffffffffffffp-1022'], + ['0x0.fffffffffffffp-1022', '%a','0x1.ffffffffffffep-1023'], + ['0x0.7ffffffffffffp-1022', '%a','0x1.ffffffffffffcp-1024'], + ['0x0.3ffffffffffffp-1022', '%a','0x1.ffffffffffff8p-1025'], + ['0x0.1ffffffffffffp-1022', '%a','0x1.ffffffffffffp-1026'], + ['0x0.0ffffffffffffp-1022', '%a','0x1.fffffffffffep-1027'], + ); + +# S2 +my @subnormals = + ( + [ '1e-320', '%a', '0x1.fap-1064' ], + [ '3e-324', '%.1a', '0x1.0p-1074' ], + ['0x1.fffffffffffffp-1022', '%a','0x1.fffffffffffffp-1022'], + ['0x0.fffffffffffffp-1022', '%a','0x1.ffffffffffffep-1023'], + ['0x0.7ffffffffffffp-1022', '%a','0x1.ffffffffffffcp-1024'], + ['0x0.3ffffffffffffp-1022', '%a','0x1.ffffffffffff8p-1025'], + ['0x0.1ffffffffffffp-1022', '%a','0x1.ffffffffffffp-1026'], + ['0x0.0ffffffffffffp-1022', '%a','0x1.fffffffffffep-1027'], + ); + +==> b1061.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=68 + +# Testing +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=2 + +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 + +==> b1062.in <== +# S1 + my $search_re = ( + $self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/ ) + ? '(?:I<)?-X' + : quotemeta ( $self->opt_f ) ; + +# S2 + my $search_re = + ( $self->opt_f =~ + /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/ ) + ? '(?:I<)?-X' + : quotemeta ( $self->opt_f ) ; + +==> b1062.par <== +# Note: needs vmll - why?? +# note the opening paren after the equals, both want a break after +--opening-paren-right +--continuation-indentation=9 +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=55 +--variable-maximum-line-length + +#--nostack-opening-paren +#--stack-closing-paren +#--vertical-tightness-closing=1 +#--vertical-tightness=1 +#--nostack-opening-square-bracket +#--nostatic-block-comments +#--space-function-paren +#--space-keyword-paren +#--square-bracket-tightness=2 +#--square-bracket-vertical-tightness-closing=1 +#--square-bracket-vertical-tightness=2 +#--nostack-closing-block-brace +#--stack-closing-hash-brace +#--stack-closing-square-bracket +#--stack-opening-hash-brace + +#--space-terminal-semicolon +#--static-side-comments +#--notight-secret-operators +#--trim-pod +#--use-unicode-gcstring +#--novalign +#--space-after-keyword='our garbage1 if garbage1' +#--short-concatenation-item-length=45 + +==> b1063.in <== +# S1 + my ($got) = + ParseParameters( + 0, + { + 'bufsize' => + [ IO::Compress::Base::Common::Parse_unsigned, 4096 ], + 'windowbits' => + [ IO::Compress::Base::Common::Parse_signed, MAX_WBITS() ], + 'dictionary' => + [ IO::Compress::Base::Common::Parse_any, "" ], + }, + @_ ); + +# S2 +my ($got) = + ParseParameters( + 0, + { + 'bufsize' => [ + IO::Compress::Base::Common::Parse_unsigned, 4096 + ], + 'windowbits' => [ + IO::Compress::Base::Common::Parse_signed, + MAX_WBITS() + ], + 'dictionary' => + [ IO::Compress::Base::Common::Parse_any, "" ], + }, + @_ + ); + +==> b1063.par <== +--extended-continuation-indentation +--indent-columns=3 +--line-up-parentheses +--maximum-line-length=65 +--variable-maximum-line-length + +#--stack-closing-paren +#--nostack-opening-paren +#--vertical-tightness-closing=1 +#--vertical-tightness=0 +#--opening-square-bracket-right +#--stack-closing-block-brace +#--nostack-closing-hash-brace +#--stack-closing-square-bracket +#--nostack-opening-hash-brace +#--stack-opening-square-bracket +#--static-side-comments +#--notight-secret-operators +#--notrim-pod +#--notrim-qw +#--use-unicode-gcstring + +==> b1064.in <== +# S1 + is_deeply( + [[OUT_STD, "ok 1 - bob\n"]], + "Parent (un-buffered)", + ); + +# S2 + is_deeply( + [ + [ + OUT_STD, "ok 1 - bob\n" + ] + ], + "Parent (un-buffered)", + ); + +==> b1064.par <== +--noadd-whitespace +--continuation-indentation=5 +--indent-columns=2 +--maximum-line-length=36 +--weld-nested-containers + +==> b1065.in <== +# S1: +sub VerifyData + { + + my $hashref + = shift; + if (!ok( keys + ( %bad + ) + + + keys + ( %expected + ) + == + 0 + , +"Expected == Actual" + ) + ) + { + my $bad + = +"Expected does not match actual\n"; + } + } + +# S2: (changed name to avoid error message) +sub VerifyDatA + { + + my $hashref + = shift; + if + ( !ok( + keys + ( %bad + ) + + + keys + ( %expected + ) + == + 0 + , +"Expected == Actual" + ) ) + { + my $bad + = +"Expected does not match actual\n"; + } + } + +==> b1065.par <== +--brace-left-and-indent +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=20 +--vertical-tightness=2 +--weld-nested-containers + +==> b1066.in <== + my ( + $seq, + $id, + $acc, + $pid, + $desc, + $moltype, + $given_id, + $is_reference, + $repeat_unit, + $repeat_count + ) + = $self + ->_rearrange + ( + [ qw(SEQ + DISPLAY_ID + ACCESSION_NUMBER + PRIMARY_ID + DESC + MOLTYPE + ID + IS_REFERENCE + REPEAT_UNIT + REPEAT_COUNT + ) + ], + @args + ); + +==> b1066.par <== +--maximum-line-length=18 +--paren-tightness=2 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b1067.in <== + ( + $var1, + + ) + = $self + ->_rearrange + ( + [ qw(FH + ROUND + ) + ], + @args + ); + +==> b1067.par <== +--maximum-line-length=18 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b1068.in <== +# S1 +my @testsubs = + ( + sub { + like ( $@, qr/locate object method/ ); + }, + sub { +'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; + }, + ); + +# S2 +my @testsubs = ( + sub { + like ( $@, + qr/locate object method/ ); + }, + sub { +'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; + }, +); + +==> b1068.par <== +--break-before-paren=2 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=5 +--line-up-parentheses +--maximum-line-length=42 +--space-function-paren +--variable-maximum-line-length + +==> b1069.in <== +# S1 + my $res = + [ + _process_typemaps( + [@local_tmaps], '.' + ) + ]; +# S2 + my $res = [ + _process_typemaps( + [@local_tmaps], + '.' + ) + ]; + +==> b1069.par <== +--break-before-square-bracket=2 +--continuation-indentation=3 +--extended-continuation-indentation +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=45 + +==> b1070.in <== +# S1 + my $res = + [ + _process_typemaps( + [@local_tmaps], '.' + ) + ]; + +# S2 + my $res = [ + _process_typemaps( + [@local_tmaps], + '.' + ) + ]; + +==> b1070.par <== +--break-before-square-bracket=2 +--continuation-indentation=5 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=7 +--line-up-parentheses +--maximum-fields-per-table=32 +--maximum-line-length=27 +--variable-maximum-line-length + +==> b1071.in <== +# S1 + my ($seq,) = + $self + ->_rearrange + ([ + qw(SEQ + SEQORI + ) + ], + @args + ); + +# S2 + my ($seq,) = + $self + ->_rearrange + ( + [ qw(SEQ + SEQORI + ) + ], + @args + ); + +==> b1071.par <== +--maximum-line-length=18 +--paren-tightness=2 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b1072.in <== +%XS_TypeSet = ( + IV => '*iv_return = ', + UV => '*iv_return = (IV)', + NV => '*nv_return = ', + PV => '*pv_return = ', + PVN => [ + '*pv_return = ', + '*iv_return = (IV)' + ], + SV => '*sv_return = ', + YES => undef, + NO => undef, + UNDEF => undef, +); + +%XS_TypeSet = + ( + IV => '*iv_return = ', + UV => '*iv_return = (IV)', + NV => '*nv_return = ', + PV => '*pv_return = ', + PVN => + ['*pv_return = ', '*iv_return = (IV)'], + SV => '*sv_return = ', + YES => undef, + NO => undef, + UNDEF => undef, + ); + +==> b1072.par <== +--break-before-paren=2 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=5 +--line-up-parentheses +--maximum-line-length=42 +--square-bracket-tightness=2 +--variable-maximum-line-length + +==> b1073.in <== +# Keeps adding a blank line!! + sub stop { + + 1; + } + + sub start { + + + 1; + } + + +==> b1073.par <== +--blank-lines-after-opening-block=2 +--maximum-consecutive-blank-lines=1 +--maximum-line-length=15 + +==> b1074.in <== + ( + $PhoneDateLog, + $PhoneTimeLog, + $PhoneNameLog, + $PhoneNumberLog + ) + = (split + ( + '`', + $CallLogTempLine + ))[ + 0, 1, + 2, 3 + ]; + +==> b1074.par <== +--break-before-paren=3 +--continuation-indentation=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1075.in <== + my (@to_push) + = (split + ( + /\|/, + $_[ + FILE_NAME + ] + )) + [@push_inx + ]; + + my (@to_push) + = + ( + split( + /\|/, + $_[ + FILE_NAME + ] + ) + ) + [@push_inx + ]; + + +==> b1075.par <== +--break-before-paren=3 +--continuation-indentation=5 +--indent-columns=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1076.in <== +$Locale::Codes::Retired{'langext'}{'alpha'} + {'name'} = { + q(hawai'i pidgin sign language) => [ + q(hps), + q(Hawai'i Pidgin Sign Language) + ], + q(rennellese sign language) => + [ q(rsi), q(Rennellese Sign Language) ], + q(yiddish sign language) => + [ q(yds), q(Yiddish Sign Language) ], + }; + +$Locale::Codes::Retired{'langext'}{'alpha'} + {'name'} = + { + q(hawai'i pidgin sign language) => [ + q(hps), q(Hawai'i Pidgin Sign Language) + ], + q(rennellese sign language) => + [ q(rsi), q(Rennellese Sign Language) ], + q(yiddish sign language) => + [ q(yds), q(Yiddish Sign Language) ], + }; + +==> b1076.par <== +--break-before-hash-brace=2 +--continuation-indentation=4 +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=50 + +==> b1077.in <== + foreach + my $key(sort( + keys(%{$self->{data}}))) +__END__ + + foreach my $key( + sort( + keys(%{$self->{data}})) + ) + + +==> b1077.par <== +--noadd-whitespace +--delete-old-whitespace +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=28 +--norecombine +--variable-maximum-line-length +--weld-nested-containers + +==> b1078.in <== +if ( + not ( ok + scalar ( grep { ref $_ and $_->can ('type') } + @t ) => 16 ) ) + +if ( + not ( + ok scalar ( + grep { + ref $_ + and $_->can ('type') + } @t ) => 16 ) ) + +==> b1078.par <== +--indent-columns=7 +--maximum-line-length=52 +--short-concatenation-item-length=72 +--space-after-keyword='my my 34 my' +--space-function-paren +--space-keyword-paren +--space-prototype-paren=0 +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--notight-secret-operators +--notrim-pod +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=1 +--weld-nested-containers + +==> b1079.in <== + my ( + $id, + $sysname, + $aa_mut + ) + = $self + ->_rearrange + ( [ + qw(ID + AA_MUT + ) + ], + @args + ); + + my ( + $id, + $sysname, + $aa_mut + ) + = $self + ->_rearrange + ( + [ qw(ID + AA_MUT + ) + ], + @args + ); + + +==> b1079.par <== +--maximum-line-length=18 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b1080.in <== + my ($seq, + $id,) = + $self + ->_rearrange + ([ + qw(SEQ + ID + ) + ], + @args + ); + +==> b1080.par <== +--maximum-line-length=18 +--paren-tightness=2 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b1081.in <== + @apple_encs + = ( + <<'EOT', +M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL +EOT + undef, + <<'EOT', +M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8 +EOT + ); + + @apple_encs + = (<<'EOT', +M>)RES==NCW$`@.'G_S5Q*L(!#?+K1VO4:.W6IJA-:\^BM?>L>1&NP(A0Q$BL +EOT + undef, + <<'EOT', +M>)RES[=/%```1O$WO8G_@$'J';W70Z2WHS>5WJN%8D6%D;BZ,3*P,;#C2D(8 +EOT + ); + +==> b1081.par <== +--extended-continuation-indentation +--indent-columns=3 +--line-up-parentheses +--maximum-line-length=11 +--paren-tightness=2 +--paren-vertical-tightness=1 + +==> b1082.in <== + return map{ + ($_,[$self->$_(@_[1..$#_])]) + }@every; + + return + map{( + $_,[$self->$_(@_[1..$#_])])} + @every; + +==> b1082.par <== +--noadd-whitespace +--break-at-old-comma-breakpoints +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=28 +--variable-maximum-line-length +--weld-nested-containers + +==> b1083.in <== + $replaced_okay = + ( $path =~ + s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s ); + + $replaced_okay = ( + $path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s ); + +==> b1083.par <== +--extended-continuation-indentation +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=64 +--opening-paren-right +--paren-vertical-tightness=1 +--norecombine +--variable-maximum-line-length + +==> b1084.in <== + my ( $RANGE, + $LHS, + $TYPE, + $RHS + ) + = (split + ( + /\s+/, + $GENERATE + )) + [ 1 .. 4 + ]; + + my ( $RANGE, + $LHS, + $TYPE, + $RHS + ) + = + ( + split( + /\s+/, + $GENERATE + ) + ) + [ 1 .. 4 + ]; + +==> b1084.par <== +--break-before-paren=3 +--continuation-indentation=5 +--indent-columns=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1085.in <== +$term = + Tgetent + Term::Cap + { + 'TERM' + => '', + 'OSPEED' + => $ospeed + }; + +$term = + Tgetent + Term::Cap +{ + 'TERM' => '', + 'OSPEED' + => $ospeed +}; + + +==> b1085.par <== +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=5 +--maximum-line-length=14 +--variable-maximum-line-length + +==> b1086.in <== + my ( + $GPSTime, + $GPSLatitude, + $GPSLongitude, + $GPSSpeed, + $GPSCourse + ) + = (split + ( + ',', $data + ))[ + 1, 3, + 5, 7, + 8 + ]; + + my ( + $GPSTime, + $GPSLatitude, + $GPSLongitude, + $GPSSpeed, + $GPSCourse + ) + = + ( + split( + ',', $data + ) + )[ + 1, 3, + 5, 7, + 8 + ]; + + +==> b1086.par <== +--break-before-paren=3 +--continuation-indentation=5 +--indent-columns=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1087.in <== + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_) ) + } ( split + ( + '', + substr( + $dat, $i, + 16 + ) + ) ) + ); + + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_) ) + } ( split( + '', + substr( + $dat, $i, + 16 + ) + ) + ) + ); + +==> b1087.par <== +--continuation-indentation=5 +--maximum-line-length=14 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1087a.in <== + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_)) + } (split + ( + '', + substr( + $dat, $i, + 16 + ) + )) + ); + + $out = join( + ' ', + map { + sprintf( + "%02X", + ord($_)) + } (split + ( + '', + substr( + $dat, $i, + 16 + ) + )) + ); + +==> b1087a.par <== +--continuation-indentation=5 +--indent-columns=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1088.in <== + $domain_name + = + ( + split( + ' ', $answer + ) + )[4]; + + $domain_name + = (split + ( + ' ', $answer + ))[4]; + +==> b1088.par <== +--break-before-paren=3 +--continuation-indentation=5 +--indent-columns=5 +--maximum-line-length=14 +--paren-tightness=2 +--norecombine +--variable-maximum-line-length +--vertical-tightness=2 +--weld-nested-containers + +==> b1089.in <== + my %args = ( + 'for' => "Foo::Role" ); + + my %args = + ( 'for' => + "Foo::Role" ); + +==> b1089.par <== +--extended-continuation-indentation +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=24 +--opening-paren-right +--paren-vertical-tightness=1 +--norecombine +--variable-maximum-line-length + +==> b109.in <== + do { + push @keys, [ + curr_opt ( + @beg[ + 2, 5 + ] + ), + 1, + @beg[ + 0, 1, 3, 4 + ]] ; + } + +==> b109.par <== +--indent-columns=7 +--maximum-line-length=44 +--space-function-paren +--weld-nested-containers + +==> b1090.in <== + my %handles = ( + count => 'count', + elements => 'elements', + is_empty => 'is_empty', + push => 'push', + push_curried => [ push => 42, 84 ], + unshift => 'unshift', + unshift_curried => + [ unshift => 42, 84 ], + pop => 'pop', + shift => 'shift', + get => 'get', + get_curried => [ get => 1 ], + set => 'set', + set_curried_1 => [ set => 1 ], + set_curried_2 => + [ set => ( 1, 98 ) ], + accessor => 'accessor', + accessor_curried_1 => + [ accessor => 1 ], + accessor_curried_2 => + [ accessor => ( 1, 90 ) ], + clear => 'clear', + delete => 'delete', + delete_curried => [ delete => 1 ], + insert => 'insert', + insert_curried => + [ insert => ( 1, 101 ) ], + splice => 'splice', + splice_curried_1 => [ splice => 1 ], + splice_curried_2 => + [ splice => 1, 2 ], + splice_curried_all => [ + splice => 1, + 2, ( 3, 4, 5 ) + ], + sort => 'sort', + sort_curried => [ + sort => + ( sub { $_[1] <=> $_[0] } ) + ], + sort_in_place => 'sort_in_place', + sort_in_place_curried => [ + sort_in_place => + ( sub { $_[1] <=> $_[0] } ) + ], + map => 'map', + map_curried => + [ map => ( sub { $_ + 1 } ) ], + grep => 'grep', + grep_curried => + [ grep => ( sub { $_ < 5 } ) ], + first => 'first', + first_curried => [ + first => ( sub { $_ % 2 } ) + ], + first_index => 'first_index', + first_index_curried => [ + first_index => ( sub { $_ % 2 } ) + ], + join => 'join', + join_curried => [ join => '-' ], + shuffle => 'shuffle', + uniq => 'uniq', + reduce => 'reduce', + reduce_curried => [ + reduce => + ( sub { $_[0] * $_[1] } ) + ], + natatime => 'natatime', + natatime_curried => + [ natatime => 2 ], + ); + + my %handles = + ( + count => 'count', + elements => 'elements', + is_empty => 'is_empty', + push => 'push', + push_curried => + [ push => 42, 84 ], + unshift => 'unshift', + unshift_curried => + [ unshift => 42, 84 ], + pop => 'pop', + shift => 'shift', + get => 'get', + get_curried => [ get => 1 ], + set => 'set', + set_curried_1 => [ set => 1 ], + set_curried_2 => + [ set => ( 1, 98 ) ], + accessor => 'accessor', + accessor_curried_1 => + [ accessor => 1 ], + accessor_curried_2 => + [ accessor => ( 1, 90 ) ], + clear => 'clear', + delete => 'delete', + delete_curried => + [ delete => 1 ], + insert => 'insert', + insert_curried => + [ insert => ( 1, 101 ) ], + splice => 'splice', + splice_curried_1 => + [ splice => 1 ], + splice_curried_2 => + [ splice => 1, 2 ], + splice_curried_all => + [ splice => 1, 2, ( 3, 4, 5 ) ], + sort => 'sort', + sort_curried => [ + sort => ( sub { $_[1] <=> $_[0] } ) + ], + sort_in_place => 'sort_in_place', + sort_in_place_curried => [ + sort_in_place => + ( sub { $_[1] <=> $_[0] } ) + ], + map => 'map', + map_curried => + [ map => ( sub { $_ + 1 } ) ], + grep => 'grep', + grep_curried => + [ grep => ( sub { $_ < 5 } ) ], + first => 'first', + first_curried => + [ first => ( sub { $_ % 2 } ) ], + first_index => 'first_index', + first_index_curried => [ + first_index => ( sub { $_ % 2 } ) + ], + join => 'join', + join_curried => [ join => '-' ], + shuffle => 'shuffle', + uniq => 'uniq', + reduce => 'reduce', + reduce_curried => [ + reduce => ( sub { $_[0] * $_[1] } ) + ], + natatime => 'natatime', + natatime_curried => + [ natatime => 2 ], + ); + +==> b1090.par <== +--break-before-paren=2 +--continuation-indentation=7 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=5 +--line-up-parentheses +--maximum-line-length=36 +--variable-maximum-line-length + +==> b1091.in <== + foreach (@sigs) + { # Don't allow interruptions + $SIG{$_} = 'IGNORE'; + } + ( open( CHECKPOINT, "> $aub_tmp" + ) ) + || # This is just temporary... + &abort( +"Could not open temporary file $aub_tmp for writing" + ); + + foreach (@sigs) + { # Don't allow interruptions + $SIG{$_} = 'IGNORE'; + } + ( open( CHECKPOINT, "> $aub_tmp" ) ) + || # This is just temporary... + &abort( +"Could not open temporary file $aub_tmp for writing" + ); + +==> b1091.par <== +--indent-columns=3 +--maximum-line-length=39 +--weld-nested-containers + +==> b1092.in <== + foreach + $at(grep ($_->Removeable==1, + @{ + $self->Target->AttribBox + ->Attrib + })) + +__END__ + + foreach$at( + grep ($_->Removeable==1, + @{ + $self->Target->AttribBox + ->Attrib + }) + ) + +==> b1092.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=31 +--variable-maximum-line-length +--weld-nested-containers + +==> b1093.in <== + foreach$at( + grep ($_->Removeable== + 1, + @{ + $self->Target + ->AttribBox + ->Attrib + }) + ) + +__END__ + + foreach + $at(grep + ($_->Removeable==1, + @{ + $self->Target + ->AttribBox + ->Attrib + })) + +==> b1093.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=35 +--norecombine +--weld-nested-containers + +==> b1094.in <== + foreach + $thing(grep($_->Owner== + $self->Caster, + @{$self->Arena->Monsters})) + +__END__ + foreach$thing( + grep($_->Owner== + $self->Caster, + @{ + $self->Arena + ->Monsters + }) + ) + + +==> b1094.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=35 +--norecombine +--weld-nested-containers + +==> b1095.in <== + use Moose -traits=> + [ + 'My::Trait'=> + {-alias=>{reversed_name=>'reversed',},-excludes=>'reversed_name',}, + ]; + + use Moose -traits=>[ + 'My::Trait'=>{ + -alias=>{reversed_name=>'reversed',}, + -excludes=>'reversed_name', + }, + ]; + +==> b1095.par <== +--noadd-whitespace +--break-before-square-bracket=2 +--continuation-indentation=4 +--nodelete-semicolons +--delete-side-comments +--extended-continuation-indentation +--fixed-position-side-comment=42 +--noframes +--ignore-old-breakpoints +--ignore-side-comment-lengths +--noindent-block-comments +--indent-closing-brace +--indent-columns=8 +--indent-spaced-block-comments +--nokeep-interior-semicolons +--keep-old-blank-lines=87 +#--keep-old-breakpoints-after='=+' +#--keep-old-breakpoints-before='!' +--keyword-group-blanks-after=0 +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=48 +--keyword-group-blanks-size='7' +--keyword-paren-inner-tightness=0 +--line-up-parentheses +--long-block-line-count=50 +--nolook-for-selfloader +--maximum-fields-per-table=99 +--maximum-level-errors=38 +--maximum-line-length=82 +--maximum-unexpected-errors=72 +--nomemoize +--nonon-indenting-braces +--nospace-after-keyword='our if local while' +--nowant-left-space='< *= -= += *= < x ||= - x= & ||= & &&= % | |=' +--nowant-right-space='/= |= / -= + -= =~ == & += | |= + .= >= .= -' +--one-line-block-nesting=80 +--one-line-block-semicolons=72 +--opening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--noopening-hash-brace-right +--opening-paren-right +--opening-square-bracket-right +--noopening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-vertical-tightness=1 +--norecombine +--short-concatenation-item-length=37 +--space-after-keyword='while while do while' +--space-backslash-quote=2 +--space-function-paren +--nospace-keyword-paren +--space-prototype-paren=2 +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=2 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--static-side-comments +--tight-secret-operators +--trim-pod +--use-unicode-gcstring +--novariable-maximum-line-length +--vertical-tightness-closing=1 + +==> b1096.in <== + use Moose -traits =>[ + 'My::Trait' =>{ + -alias => {reversed_name => 'reversed',}, + -excludes => 'reversed_name', + }, + ]; + + use Moose -traits => + [ + 'My::Trait' =>{ + -alias => {reversed_name => 'reversed',},-excludes => 'reversed_name', + }, + ]; + + +==> b1096.par <== +--noadd-whitespace +--break-before-square-bracket=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=1 +--extended-continuation-indentation +--indent-columns=3 +--line-up-parentheses +--maximum-line-length=72 +--variable-maximum-line-length + +==> b1097.in <== + my (@files) = @{ + $args{-files} }; + + my (@files) = + @{ $args{-files} + }; + + +==> b1097.par <== +--brace-vertical-tightness-closing=1 +--continuation-indentation=8 +--indent-columns=10 +--maximum-line-length=36 + +==> b1098.in <== +sub receive_bgp_update_message { + my ( $peerref, $buff, $rtref, $my_ip ) = @_; + if ( $unfeas_routes_len > 0 ) { + foreach $route (@routes) { + my $prefix_length = $route->{prefix_length}; + if ( $prefix_length == 0 ) { + my $routecount = delete_all_routes( $rtref, $peer ); + } + else { + if ( delete_adjRIBin_route( + $rtref, $prefix, $prefix_length, $peer + ) ) + { + ...; + } + } + } + } +} +__END__ +sub receive_bgp_update_message { + my ( $peerref, $buff, $rtref, $my_ip ) = @_; + if ( $unfeas_routes_len > 0 ) { + foreach $route (@routes) { + my $prefix_length = $route->{prefix_length}; + if ( $prefix_length == 0 ) { + my $routecount = delete_all_routes( $rtref, $peer ); + } + else { + if ( delete_adjRIBin_route( + $rtref, $prefix, $prefix_length, $peer + ) ) + { + ...; + } + } + } + } +} + +==> b1098.par <== +--noadd-whitespace +--comma-arrow-breakpoints=2 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=7 +--maximum-line-length=74 +--weld-nested-containers +--whitespace-cycle=3 + +==> b1099.in <== +# S1 + has observers => ( + traits => ['Array'], + is => 'ro', + isa => 'ArrayRef[Observer]', + auto_deref => 1, + default => sub { [] }, + handles => + { 'add_observer' => 'push', + 'count_observers' => 'count', + }, ) ; +# S2 + has observers => + ( traits => ['Array'], + is => 'ro', + isa => 'ArrayRef[Observer]', + auto_deref => 1, + default => sub { [] }, + handles => + { 'add_observer' => 'push', + 'count_observers' => 'count', }, ) ; + +==> b1099.par <== +--brace-vertical-tightness=2 +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-method-breakpoints +--break-at-old-semicolon-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--break-before-paren-and-indent=2 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--check-syntax +--closing-brace-indentation=2 +--closing-paren-indentation=1 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=41 +--closing-side-comment-maximum-text=54 +--closing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-token-indentation=1 +--continuation-indentation=4 +--cuddled-block-list-exclusive +--cuddled-break-option=21 +--cuddled-else +--default-tabsize=4 +--nodelete-block-comments +--nodelete-closing-side-comments +--delete-side-comments +--fixed-position-side-comment=2 +--noformat-skipping +--noframes +--nohanging-side-comments +--noignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-block-comments +--noindent-closing-brace +--indent-columns=5 +--indent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=9 +--keep-old-breakpoints-after='train' +--keep-old-breakpoints-before='sub' +--keyword-group-blanks-after=2 +--keyword-group-blanks-before=2 +--keyword-group-blanks-repeat-count=82 +--keyword-group-blanks-size='0' +--keyword-paren-inner-tightness=2 +--line-up-parentheses +--nological-padding +--long-block-line-count=23 +--maximum-consecutive-blank-lines=3 +--maximum-fields-per-table=63 +--maximum-level-errors=49 +--maximum-line-length=53 +--maximum-unexpected-errors=73 +--minimum-space-to-comment=5 +--nospace-after-keyword='my do do garbage1' +--nowant-left-space='% % - == =~ -= &= &&= &= <= < -= !~ / += =~ !~' +--nowant-right-space='.= & &&= *= >= + = -= //= % >= & | /= &= & x' +--one-line-block-nesting=43 +--one-line-block-semicolons=41 +--noopening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--noopening-hash-brace-right +--noopening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-labels +--outdent-static-block-comments +--paren-vertical-tightness-closing=2 +--paren-vertical-tightness=2 +--norecombine +--short-concatenation-item-length=77 +--space-after-keyword='while while while while' +--space-backslash-quote=2 +--space-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-vertical-tightness=2 +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--static-side-comments +--notight-secret-operators +--trim-pod +--novariable-maximum-line-length +--vertical-tightness-closing=2 + +==> b1100.in <== +# S1 +my $parent_sets = [ + [ + [ +qw( blue blue blue blue ) + ], [ +qw( blue blue blue blue ) + ] => 'blue' + ], [ + [ +qw( blue blue blue blue ) + ], [ +qw( brown brown green blue ) + ] => 'brown' + ], [ + [ +qw( blue blue green green ) + ], [ +qw( blue blue green green ) + ] => 'green' + ], ]; + +# S2: +my $parent_sets = [ + [ + [qw( blue blue blue blue )], + [qw( blue blue blue blue ) + ] => 'blue' + ], [ + [qw( blue blue blue blue )], + [ +qw( brown brown green blue ) + ] => 'brown' + ], [ + [ +qw( blue blue green green ) + ], [ +qw( blue blue green green ) + ] => 'green' + ], ]; + +==> b1100.par <== +--break-before-square-bracket=2 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=44 +--opening-square-bracket-right +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--notight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novariable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b1101.in <== + %table = ( + 'title' => 'Page Referrals by Referrals', + 'col_headers' => [ + 'Page', + 'First Referral', + 'Last Referrals', + 'Total Referrals' + ], + 'data' => [@data] + ); + + %table = + ( + 'title' => 'Page Referrals by Referrals', + 'col_headers' => [ + 'Page', 'First Referral', 'Last Referrals', + 'Total Referrals' + ], + 'data' => [@data] + ); + + +==> b1101.par <== +--break-before-paren=2 +--continuation-indentation=8 +--extended-continuation-indentation +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=82 + +==> b1102.in <== +sub generate_manifest_pod{ + generate_manifest + map{[ + "pod/$_.pod",$state->{pods}{$_} + ]}sort grep{ + !$state->{copies}{"$_.pod"} + &&!$state->{generated}{"$_.pod"} + &&!-e"$_.pod" + }keys%{$state->{pods}}; +} + +# S2: changed sub name to avoid perltidy complaint +sub generate_manifest_poD{ + generate_manifest + map{ + ["pod/$_.pod",$state->{pods}{$_}] + }sort grep{ + !$state->{copies}{"$_.pod"} + &&!$state->{generated}{"$_.pod"} + &&!-e"$_.pod" + }keys%{$state->{pods}}; +} + +==> b1102.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=36 +--variable-maximum-line-length +--weld-nested-containers + +==> b1104.in <== +foreach $port ( sort +( @ARGV[ 1 .. $#ARGV ] ) ) + +__END__ +foreach $port ( + sort ( @ARGV[ 1 .. $#ARGV ] + ) ) + + +==> b1104.par <== +--continuation-indentation=8 +--extended-continuation-indentation +--maximum-line-length=36 +--weld-nested-containers + +==> b1105.in <== +foreach $port ( sort +( @ARGV[ 1 .. $#ARGV ] ) ) +__END__ +foreach $port ( + sort + ( @ARGV[ 1 .. $#ARGV ] + ) ) + + +==> b1105.par <== +--continuation-indentation=5 +--extended-continuation-indentation +--maximum-line-length=31 +--weld-nested-containers + +==> b1106.in <== + return + map { ( $_, [ $self->$_( @_[ 1 .. $#_ ] ) ] ) } + @every; + + return + map{( + $_,[$self->$_(@_[1..$#_])])}@every; + +==> b1106.par <== +--noadd-whitespace +--continuation-indentation=6 +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=36 +--variable-maximum-line-length +--weld-nested-containers + +==> b1107.in <== +sub parsedate { + if ($xx) { + while (1) { + if ( !defined $m ) # + { + + if( + &parse_date_offset(\$t,$now,\$y,\$m,\$d,\$rd,\$rs, + %options) + ) + { + ...; + } + + } + } + } +} + +==> b1107.par <== +--noadd-whitespace +--comma-arrow-breakpoints=2 +--extended-continuation-indentation +--indent-columns=7 +--maximum-line-length=74 +--weld-nested-containers +--whitespace-cycle=3 + +==> b1108.in <== + my$clist= + $scrolled_window_hash{(sort ( + keys(%scrolled_window_hash))) + [$page]}[1]; + + my$clist= + $scrolled_window_hash{ + ( + sort ( + keys(%scrolled_window_hash)) + )[$page] + }[1]; + +==> b1108.par <== +--noadd-whitespace +--maximum-line-length=31 +--variable-maximum-line-length +--weld-nested-containers + +==> b1109.in <== +ok( + $original, + "loaded " + . basename $path +); + +==> b1109.par <== +--indent-columns=0 +--line-up-parentheses +--maximum-line-length=24 + +==> b1110.in <== + $res .= $1; + last unless $3; + $res .= + depod1( + $rstr, $3, + closing $4 ); + + + $res .= $1; + last unless $3; + $res .= + depod1( + $rstr, + $3, + closing $4 + ); + +==> b1110.par <== +--ignore-old-breakpoints +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=15 +--variable-maximum-line-length + +==> b1111.in <== + my($name,$content)= + map{@$_;} + grep{$_->[0]eq$find}map{[### full path ### + File::Spec::Unix->catfile( + grep{length}@{$_->[0]}, + $_->[1] + ), + $_->[2], + ]}@$struct; + + my($name,$content)= + map{@$_;}grep{$_->[0]eq$find}map{ + [### full path ### + File::Spec::Unix->catfile( + grep{length}@{$_->[0]}, + $_->[1] + ), + $_->[2], + ] + }@$struct; + + +==> b1111.par <== +--noadd-whitespace +--nobreak-at-old-keyword-breakpoints +--delete-old-whitespace +--indent-columns=10 +--line-up-parentheses +--maximum-line-length=60 +--weld-nested-containers + +==> b1112.in <== +run_tests( + 'Basic Big5 range', + { + 'utf' => ( + 24093.39640.38525.20043.33495.35028.20846.65292 + . 26389.30343.32771.26352.20271.24248.65108 + . 25885.25552.35998.20110.23391.38508.20846.65292 + . 24799.24218.23493.21566.20197.38477.65108 + ), + + 'big5-hkscs' => (join('', +'«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q', +'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q', + )), + } +); + +run_tests( + 'Basic Big5 range', + { + 'utf' => ( + 24093.39640.38525.20043.33495.35028.20846.65292 + . 26389.30343.32771.26352.20271.24248.65108 + . 25885.25552.35998.20110.23391.38508.20846.65292 + . 24799.24218.23493.21566.20197.38477.65108 + ), + + 'big5-hkscs' => + ( join('', +'«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q', +'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q', + ) + ), + } +); + +==> b1112.par <== +--break-before-paren=3 +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=36 +--paren-tightness=2 +--paren-vertical-tightness=2 +--weld-nested-containers + +==> b1113.in <== +$STYLESHEET{'html-light'}={ + 'tags'=>{ + 'predefined identifier'=> + { + 'start'=>'', + 'stop'=>'' + }, + } +}; + +$STYLESHEET{'html-light'}={ + 'tags'=>{ + 'predefined identifier'=> + { + 'start'=>'','stop'=>'' + }, + } +}; + +==> b1113.par <== +--noadd-whitespace +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--comma-arrow-breakpoints=3 +--continuation-indentation=9 +--maximum-line-length=76 +--variable-maximum-line-length + +==> b1114.in <== +is(length(pack("j", 0)), + $Config{ivsize}); + +is( + length(pack("j", 0)), + $Config{ivsize} +); + +==> b1114.par <== +--noadd-whitespace +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=25 +--weld-nested-containers + +==> b1115.in <== + return sort map{ + ($_,db_complete($_."::","v ",2)) + } + + return + sort map{( + $_,db_complete($_."::","v ",2))} + + +==> b1115.par <== +--noadd-whitespace +--delete-old-whitespace +--line-up-parentheses +--maximum-line-length=36 +--variable-maximum-line-length +--weld-nested-containers + +==> b1116.in <== +sub checkorder{ + my ($i, + $disorder); + + for ($i = 0; + $i < $#$aref; + ++$i) + { +# Equality shouldn't happen, but catch it in the contents check + + $disorder = + ( + substr( + $aref->[$i], 0, + $RootWidth + ) eq substr( + $aref->[ $i + 1 ], + 0, + $RootWidth + ) + ) + ? "Instability" + : "Disorder"; + } +} +__END__ + +sub checkorder{ + my ($i, + $disorder); + + for ($i = 0; + $i < $#$aref; + ++$i) + { +# Equality shouldn't happen, but catch it in the contents check + + $disorder = + ( + substr( + $aref->[$i], 0, + $RootWidth + ) eq substr( + $aref->[ $i + 1 ], + 0, + $RootWidth + ) + ) + ? "Instability" + : "Disorder"; + } +} + +==> b1116.par <== +--noadd-whitespace +--break-before-paren=2 +--continuation-indentation=4 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=17 +--variable-maximum-line-length + +==> b1117.in <== +is_deeply( + $feature->prereqs->as_string_hash, + { + develop=>{ + requires=>{'Genius::Evil'=>'1.234'} + }, + runtime=>{ + requires=> + {'Machine::Weather'=>'2.0'} + }, + }, + '$feature->prereqs', +); + +is_deeply( + $feature->prereqs->as_string_hash, + { + develop=> + {requires=>{'Genius::Evil'=>'1.234'}}, + runtime=> + {requires=>{'Machine::Weather'=>'2.0'}}, + }, + '$feature->prereqs', +); + +is_deeply( +$feature->prereqs->as_string_hash, +{ +develop => { + requires => { 'Genius::Evil' => '1.234' } +}, +runtime => { +requires => { 'Machine::Weather' => '2.0' } +}, +}, +'$feature->prereqs', +); + +==> b1117.par <== +--noadd-whitespace +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=0 +--line-up-parentheses +--maximum-line-length=43 + +==> b1118.in <== +{ + my %tests = + ( + -8589934592 => [ + 9, -203, + qr/Oct \d+ .* 1697$/ + ], + -1296000 => [ + 11, 69, + qr/Dec \d+ .* 1969$/ + ], + ); +} + +{ + my %tests = ( + -8589934592 => [ + 9, + -203, +qr/Oct \d+ .* 1697$/ + ], + -1296000 => [ + 11, + 69, +qr/Dec \d+ .* 1969$/ + ], + ); +} + +==> b1118.par <== +--break-before-paren=2 +--continuation-indentation=4 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=17 +--variable-maximum-line-length + +==> b1119.in <== + ok keys(%expected) + +keys(%bad) + ==0, + "Raw hash is ok"; + + ok keys(%expected)+ + keys(%bad)==0, +"Raw hash is ok"; + +==> b1119.par <== +--noadd-whitespace +--break-before-all-operators +--continuation-indentation=8 +--indent-columns=1 +--maximum-line-length=23 + +==> b1120.in <== + ok exists{____=>undef + }->{$dummy}, +'ref sets UTF8 flag correctly'; + + ok + exists{ + ____=>undef + }->{$dummy}, +'ref sets UTF8 flag correctly'; + +==> b1120.par <== +--noadd-whitespace +--brace-vertical-tightness=1 +--break-at-old-method-breakpoints +--continuation-indentation=8 +--delete-old-whitespace +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=23 + +==> b1121.in <== +%Expect_Dir = ( + dir_path('fa') => + 1, + dir_path( 'fa', + 'faa' ) => 1, + dir_path( 'fa', + 'fab' ) => 1, + dir_path( + 'fa', + 'fab', + 'faba' + ) => 1, + dir_path('fb') => + 1, + dir_path( 'fb', + 'fba' ) => 1 +); + +%Expect_dir = + ( + dir_path('fa') => + 1, + dir_path( 'fa', + 'faa' ) => 1, + dir_path( 'fa', + 'fab' ) => 1, + dir_path( + 'fa', 'fab', + 'faba' + ) => 1, + dir_path('fb') => + 1, + dir_path( 'fb', + 'fba' ) => 1 + ); + +==> b1121.par <== +--break-before-paren=2 +--continuation-indentation=4 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=17 +--variable-maximum-line-length + +==> b1122.in <== + my @prog = + ( + make_perl_prog( + $test, + $tests->{$test},0 + ), + make_perl_prog( + $test, + $tests->{$test},1 + ), + ) ; + + my @prog =( + make_perl_prog( + $test, + $tests + ->{$test}, + 0 + ), + make_perl_prog( + $test, + $tests + ->{$test}, + 1 + ), + ) ; + +==> b1122.par <== +--noadd-whitespace +--break-before-paren=2 +--continuation-indentation=4 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=17 +--variable-maximum-line-length + +==> b1123.in <== +sub t025 ( + $= undef ) +{ + $a // "z" ; +} + +sub t025 ( + $ + = undef ) +{ + $a // "z"; +} + +==> b1123.par <== +--break-before-all-operators +--extended-continuation-indentation +--maximum-line-length=12 +--variable-maximum-line-length + +==> b1124.in <== + ok( ( $k, $err ) + = new Compress::Raw::Zlib::Inflate( + { -Bufsize => 1, + -AppendOutput => 1, + -WindowBits => -MAX_WBITS() + } + ) ); + + ok( + ( $k, $err ) = new Compress::Raw::Zlib::Inflate( { + -Bufsize => 1, + -AppendOutput => 1, + -WindowBits => -MAX_WBITS() + } ) + ); + +==> b1124.par <== +--ignore-old-breakpoints +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=68 +--weld-nested-containers + +==> b1125.in <== +sub buffered { + +} + +# S1 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +# S2 +my $buffered_shallow + = intercept + { buffered +'buffered shallow' + => $subtest + }; + +==> b1125.par <== +--maximum-line-length=14 + +==> b1126.in <== +sub buffered { + +} + +# S1 + +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +# S2 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +==> b1126.par <== +--maximum-line-length=15 + +==> b1127.in <== +sub buffered { + +} + +# S1 +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +# S2 + +my $buffered_shallow + = intercept +{ + buffered +'buffered shallow' + => $subtest +}; + +==> b1127.par <== +--maximum-line-length=5 + +==> b1128.in <== +is_deeply( + [ + pairmap + { + uc + $a + => + $b + } + ] +); + +is_deeply( + [ + pairmap + { uc + $a + => + $b + } + ] +); + +==> b1128.par <== +--brace-vertical-tightness=1 +--delete-old-whitespace +--maximum-line-length=5 + +==> b1129.in <== +if ($ON_EBCDIC) +{ delete + @Encode::ExtModule{ qw(euc-cn gb2312 gb12345 gbk cp936 iso-ir-165 MacChineseSimp + euc-jp iso-2022-jp 7bit-jis shiftjis MacJapanese cp932 + euc-kr ksc5601 cp949 MacKorean + big5 big5-hkscs cp950 MacChineseTrad + gb18030 big5plus euc-tw) }; +} + +==> b1129.par <== +--block-brace-vertical-tightness=2 +--continuation-indentation=8 +--indent-columns=7 +--maximum-line-length=92 +--opening-brace-on-new-line +--weld-nested-containers + +==> b1130.in <== +my @cases = + ( { no_proxy => [ undef, [], ], expect => [], }, + { no_proxy => [ "localhost", ["localhost"], ], expect => ["localhost"], }, + { no_proxy => + [ "localhost,example.com", "localhost, example.com", [qw/localhost example.com/] ], + expect => [ "localhost", "example.com" ], }, + ); + +==> b1130.par <== +--brace-vertical-tightness-closing=2 +--break-before-paren=2 +--extended-continuation-indentation +--maximum-line-length=96 +--variable-maximum-line-length +--vertical-tightness=2 + +==> b1131.in <== +is( j(splice(@a,-@a,@a,1,2,3)), + j(0..13), +'splice the whole list out, add 3 elements, return value is @a' +); + +is( + j( + splice(@a,-@a,@a,1, + 2,3) + ), + j(0..13), +'splice the whole list out, add 3 elements, return value is @a' +); + + +==> b1131.par <== +--noadd-whitespace +--delete-old-whitespace +--ignore-old-breakpoints +--indent-columns=7 +--maximum-line-length=35 +--vertical-tightness=1 +--weld-nested-containers + +==> b1134.in <== +{ + ok do{ + grep {$_ eq $lib} + @INC[ + 0..($#INC-1) + ] ; + }, +'Identified entry in @INC'; +} + +{ + ok do{ + grep {$_ eq $lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC'; +} + +==> b1134.par <== +--noadd-whitespace +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=31 + +==> b1135.in <== +{ + ok do{ + grep {$_ eq$lib} + @INC[ + 0..($#INC-1) + ] ; + }, +'Identified entry in @INC with double colons'; +} ; + +{ + ok do{ + grep {$_ eq$lib} + @INC[0..( + $#INC-1) + ] ; + }, +'Identified entry in @INC with double colons'; +} ; + +==> b1135.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=25 + +==> b1136.in <== +{ + ok do{ + grep{$_ eq$lib} + @INC[0..( + $#INC-1)]; + }, +'Identified entry in @INC with double colons'; +} + +{ + ok do{ + grep{$_ eq$lib} + @INC[ + 0..($#INC-1) + ]; + }, +'Identified entry in @INC with double colons'; +} + + +==> b1136.par <== +--noadd-whitespace +--indent-columns=5 +--line-up-parentheses +--maximum-line-length=27 + +==> b1137.in <== + $out->{errors}=[{ + tag=>'OOPS', + fail=>!$ENV{FAILURE_DO_PASS}, + details=>"An error occurred" + }]; + + $out->{errors}= + [{tag=>'OOPS',fail=>!$ENV{FAILURE_DO_PASS},details=>"An error occurred"}]; + + +==> b1137.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--continuation-indentation=8 +--ignore-old-breakpoints +--indent-columns=1 +--maximum-line-length=87 +--weld-nested-containers + +==> b1138.in <== + if !( + grep { + File::Spec->can( + $_) != + File::Spec::Unix + ->can($_) + } @{$udeps{$meth} + } + ) + + if !( + grep { + File::Spec->can( + $_) != + File::Spec::Unix + ->can($_) + } + @{$udeps{$meth}} + ) + +==> b1138.par <== +--brace-tightness=2 +--brace-vertical-tightness-closing=1 +--brace-vertical-tightness=2 +--continuation-indentation=1 +--extended-continuation-indentation +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=18 +--variable-maximum-line-length + +==> b1139.in <== +# the first line is required to cause this +chdir$test_dir or die"Can't chdir $test_dir"; +@INC= + ( + File::Spec->catdir( + (File::Spec->updir)x 3, + qw(lib) + ) + ); + +chdir$test_dir or die"Can't chdir $test_dir"; +@INC=(File::Spec->catdir( + (File::Spec->updir)x 3, + qw(lib) +)); + +==> b1139.par <== +--noadd-whitespace +--break-at-old-comma-breakpoints +--break-before-paren=3 +--continuation-indentation=6 +--delete-old-whitespace +--line-up-parentheses +--weld-nested-containers + +==> b114.in <== +# State 1 + +{ + { + if ( ref($template) ) { + $data = unpack( $$template[2], + pack( $$template[1], unpack( $$template[0], $data ) ) ) ; + } + } +} + +# State 2 + +{ + { + if ( ref($template) ) { + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + } + } +} + +==> b114.par <== +--line-up-parentheses +--space-terminal-semicolon + +==> b1140.in <== + @tags{ + _unpack_tags( $^H{$class} ) + } = (); + + @tags{ _unpack_tags( + $^H{$class} ) } = (); + + @tags{ + _unpack_tags( + $^H{$class} + ) + } = (); + +==> b1140.par <== +--extended-continuation-indentation +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=33 +--paren-vertical-tightness-closing=2 +# to avoid error messages: +--continuation-indentation=1 + +==> b1141.in <== +my @schedule = ( + + {name => 'Single selectable source', + sources => sub { + return [ TAP::Parser->new( { source => File::Spec->catfile( 't', 'sample-tests', 'simple' ), } ), + [ '1..5', 'ok 1', 'ok 2', 'ok 3', 'ok 4', 'ok 5', ] ]; + }, }, + +); + +==> b1141.par <== +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=100 +--vertical-tightness-closing=2 +--vertical-tightness=1 +--weld-nested-containers + +==> b1142.in <== + is_deeply([sets_plan({plan=>{}})],[0], +"Empty plan means count of 0, nothing extra" + ); + + is_deeply( + [sets_plan({plan=>{}})], + [0], +"Empty plan means count of 0, nothing extra" + ); + +==> b1142.par <== +--noadd-whitespace +--continuation-indentation=10 +--indent-columns=6 +--line-up-parentheses +--maximum-fields-per-table=31 +--maximum-line-length=45 +--weld-nested-containers + +==> b1143.in <== + { + $crc = + ( $crc >> 8 ) + ^ autodin_ii_table + ->[ ( + $crc ^ $byte ) & + 0xff ]; + } + + { + $crc = + ( $crc >> 8 ) + ^ autodin_ii_table + ->[ + ( $crc ^ $byte ) + & 0xff + ]; + } + + +==> b1143.par <== +--continuation-indentation=1 +--line-up-parentheses +--maximum-line-length=18 +--variable-maximum-line-length + +==> b1144.in <== + my @tests = ( + [ + 1, + {'AB' => ''} => + [ [ + 'AB' => '' + ] ] + ], + ); + + my @tests = ( + [ + 1, + {'AB' => ''} + => [ + [ + 'AB' => '' + ] + ] + ], + ); + +==> b1144.par <== +--brace-tightness=2 +--extended-continuation-indentation +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=18 +--variable-maximum-line-length +--weld-nested-containers + +==> b1145.in <== + $self->{values} + [$#{$self->{values} + }]; + + $self->{values}[ + $#{$self->{values}} + ]; + + +==> b1145.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=25 + +==> b1146.in <== + my $line_number= + $self->{line_no} + ->[@{$self + ->{line_no}} + - @{$self->{line}} + -1]; + + my $line_number= + $self->{line_no} + ->[ + @{$self->{line_no}} + - @{$self->{line}} + -1 + ]; + +==> b1146.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=25 + +==> b1147.in <== + @summary=@output[ + 12..($#output-1) + ]; + + @summary= + @output[12..( + $#output-1)]; + + +==> b1147.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=25 + +==> b1148.in <== + $self->{line_no}->[ + @{ $self->{line_no} } + - @{ $self->{line} } + - 1 + ]; + + $self->{line_no} + ->[ @{ $self + ->{line_no} } - + @{ $self->{line} } - + 1 ]; + + $self->{line_no}->[ + @{ $self->{line_no} } + - @{ $self->{line} } + - 1 + ]; + + +==> b1148.par <== +--continuation-indentation=4 +--line-up-parentheses +--maximum-line-length=25 +--variable-maximum-line-length + +==> b1149.in <== +my %results = ( +T_UV => +{ type => 'u', with_size => undef, what => '(UV)$var', what_size => undef }, +); + +my %results = ( T_UV => +{ type => 'u', with_size => undef, what => '(UV)$var', what_size => undef }, ); + +==> b1149.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 + +==> b1150.in <== +my %base = ( +'meta-spec' => + { +url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec", +version => 2, + }, +); + +my %base = ( 'meta-spec' => +{ url => "http://search.cpan.org/perldoc?CPAN::Meta::Spec", version => 2, }, ); + +==> b1150.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 + +==> b1151.in <== + my %tag_cache = ( + 'all' => [ + map { + "CORE::$_" + } + @{$TAGS{':all'}} + ], + ); + + my %tag_cache = ( + 'all' => [ + map { + "CORE::$_" + } @{$TAGS{':all'} + } + ], + ); + + + +==> b1151.par <== +--brace-tightness=2 +--brace-vertical-tightness=2 +--continuation-indentation=1 +--extended-continuation-indentation +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=18 +--stack-closing-hash-brace +--variable-maximum-line-length + +==> b1152.in <== + my@displayable=@$items[ + $pos..($pos+$limit) + ]; + + my@displayable= + @$items[$pos..( + $pos+$limit)]; + + +==> b1152.par <== +--noadd-whitespace +--continuation-indentation=4 +--line-up-parentheses +--maximum-line-length=25 +--variable-maximum-line-length + +==> b1153.in <== + @summary = @output[ + 6 .. ( $#output - 1 ) + ]; + + @summary = @output[ 6 .. ( + $#output - 1 ) ]; + + +==> b1153.par <== +--continuation-indentation=7 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=31 + +==> b1154.in <== + unshift @str, + chr$I8_2_utf->[( + $ucp&0x1f) + |0xA0]; + + unshift @str, + chr$I8_2_utf->[ + ($ucp&0x1f)|0xA0 + ]; + +==> b1154.par <== +--noadd-whitespace +--continuation-indentation=10 +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=45 + +==> b1155.in <== +%aa=( +uvar => +{ char => 'U', vtable => 'uvar', desc => 'Available for use by extensions' }, +); + +%aa = ( +uvar => + { +char => 'U', +vtable => 'uvar', +desc => 'Available for use by extensions' + }, +); + +==> b1155.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--indent-columns=0 + +==> b1156.in <== + $distros{ distro_base ( + $short_distro) }{$distro} = 1 ; + + $distros{ distro_base ( + $short_distro) + }{$distro} = 1 ; + +==> b1156.par <== +--continuation-indentation=7 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=31 +--nopass-version-line +--short-concatenation-item-length=43 +--show-options +--space-after-keyword='local do garbage1 our' +--space-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tight-secret-operators +--trim-pod +--notrim-qw +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 + +==> b1157.in <== + @summary = @output[ + 12 .. ( $#output - 1 ) + ]; + + @summary = @output[ 12 .. ( + $#output - 1 ) ]; + + +==> b1157.par <== +--continuation-indentation=7 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=31 + +==> b1158.in <== +%language_for = ( +'13' => +{ tokens => \%v13, setup => sub { shift->{iterator}->handle_unicode; }, }, +); + +%language_for = ( +'13' => + { +tokens => \%v13, +setup => sub { shift->{iterator}->handle_unicode; }, + }, +); + +==> b1158.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 +--maximum-line-length=77 + +==> b1159.in <== +my %delta = ( + +5.009002 => +{ delta_from => 5.009001, changed => { 'corelist' => '1', }, removed => {} }, + +); + +my %delta = ( + +5.009002 => + { +delta_from => 5.009001, +changed => { 'corelist' => '1', }, +removed => {} + }, + +); + +==> b1159.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--indent-columns=0 + +==> b116.in <== +my %SPECIALS=( + "mail" =>[ + "Received:",">From", + "Return-Path:","Cc:", + ], +); + +==> b116.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--indent-columns=6 +--maximum-line-length=55 +--square-bracket-tightness=2 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--notight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 + +==> b1160.in <== +{ +'Safe' => +{ 'DISTRIBUTION' => 'RGARCIA/Safe-2.35.tar.gz', 'FILES' => q[dist/Safe], }, +} + +{ +'Safe' => + { +'DISTRIBUTION' => 'RGARCIA/Safe-2.35.tar.gz', +'FILES' => q[dist/Safe], + }, +} + + +==> b1160.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 + +==> b1161.in <== +{ +name => 'Just includes', +args => +{ argv => [ qw( one two three ) ], includes => [ qw( four five six ) ], }, +expect => { includes => [ qw( four five six ) ], }, +} + +{ +name => 'Just includes', +args => + { +argv => [ qw( one two three ) ], +includes => [ qw( four five six ) ], + }, +expect => { includes => [ qw( four five six ) ], }, +} + +==> b1161.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--indent-columns=0 +--maximum-line-length=77 +--square-bracket-tightness=0 + +==> b1162.in <== + if(defined$hints{family}){ + @infos=({ + family=>$hints{family}, + socktype=>$hints{socktype}, + protocol=>$hints{protocol}, + }); + } + + if(defined$hints{family}){ + @infos= + ( + { + family=>$hints{family}, + socktype=>$hints{socktype}, + protocol=>$hints{protocol}, + } + ); + } + +==> b1162.par <== +--noadd-whitespace +--break-before-paren=3 +--continuation-indentation=8 +--delete-old-whitespace +--line-up-parentheses +--weld-nested-containers + +==> b1163.in <== + @EXPORT + = (@{ $EXPORT_TAGS{standard} }, + ); + + @EXPORT = ( + @{ + $EXPORT_TAGS{standard} + },); + +==> b1163.par <== +--break-before-all-operators +--continuation-indentation=6 ## 8 +--extended-continuation-indentation +--indent-columns=6 +--maximum-line-length=43 +--paren-tightness=2 +--paren-vertical-tightness-closing=1 + +==> b1164.in <== + my @displayable =@$items[ + $pos .. ( $pos+$limit ) + ]; + + my @displayable = + @$items[ $pos .. ( + $pos+$limit ) ]; + +==> b1164.par <== +--continuation-indentation=7 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=31 +--nowant-left-space='x= /= &&= /= / //= != >= == x + += .= & *= |= ^=' +--nowant-right-space='|= x != <= > * <<= + &&= <= !~ >>= + | .= *= =' + +==> b1165.in <== + $lb_table[ $lb_enums{'E_Base'} + ][ + $lb_enums{'E_Modifier'} + ] + = $lb_actions{ + 'LB_NOBREAK'}; + + $lb_table[ $lb_enums{'E_Base'} + ][ $lb_enums{ + 'E_Modifier'} ] = + $lb_actions{ + 'LB_NOBREAK'}; + +==> b1165.par <== +--continuation-indentation=7 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=31 + +==> b1166.in <== +my $connect = { +headers => + { +host => "$request->{host}:$request->{port}", +'user-agent' => $agent, + } +}; + +my $connect = +{ headers => +{ host => "$request->{host}:$request->{port}", 'user-agent' => $agent, } }; + +==> b1166.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 +--maximum-line-length=77 + +==> b1167.in <== +my $xx = +{ 'expr::array::lex_1const_m1' => +{ desc => 'lexical $array[-1]', setup => 'my @a = (1)', code => '$a[-1]', }, }; + +my $xx = { +'expr::array::lex_1const_m1' => + { +desc => 'lexical $array[-1]', +setup => 'my @a = (1)', +code => '$a[-1]', + }, +}; + + +==> b1167.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 + +==> b1168.in <== +my $xx = { +vendorarch => + { +s => $vprefix, +t => 'vendor', +d => "$version/$arch", +style => $libstyle + }, +}; + +my $xx = +{ vendorarch => +{ s => $vprefix, t => 'vendor', d => "$version/$arch", style => $libstyle }, }; + + +==> b1168.par <== +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=3 +--indent-columns=0 + +==> b117.in <== +# Same as Bug96 +# State 1 + $data = unpack( $$template[2], + pack( $$template[1], unpack( $$template[0], $data ) ) ) ; + +# State 2 + + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + +==> b117.par <== +--line-up-parentheses +--space-terminal-semicolon + +==> b120.in <== +# Same as bug96 +# State 1 + $data = unpack( $$template[2], + pack( $$template[1], unpack( $$template[0], $data ) ) ) ; + + +# State 2 + $data = unpack( + $$template[2], + pack( + $$template[1], + unpack( $$template[0], $data ) + ) + ) ; + + +==> b120.par <== +--line-up-parentheses +--space-terminal-semicolon + +==> b131.in <== + unless + ( open( SCORE, "+>>$Score_File" ) ) + +==> b131.par <== +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=46 +--weld-nested-containers + +==> b140.in <== +$cmd[ $i ]=[ + $s, $e, $cmd, \@hunk, $i ] ; + +$cmd[ $i ]= + [ $s, $e, $cmd, \@hunk, + $i ] ; + +==> b140.par <== +--brace-tightness=0 +--break-before-paren-and-indent=2 +--break-before-paren=2 +--maximum-line-length=31 +--nowant-right-space='=~ >>= ||= %= >>= - | /= //= + - |= !~ <= = ||= =~' +--variable-maximum-line-length + +==> b146.in <== +# State 1 + +sub bubba { + while (1) { + if ( $#{ $i_cond->[ 1 ] } >= 0 ) { + ( $return, $val ) = + exec_stmt ( $i_cond + ->[ 1 ] ); + } } } + +__END__ +# State 2 + +sub bubba { + while (1) { + if ( $#{ $i_cond->[ 1 ] } >= 0 ) { + ( $return, $val ) = + exec_stmt ( $i_cond->[ 1 ] ); + } } } + +==> b146.par <== +--continuation-indentation=6 +--line-up-parentheses +--maximum-line-length=34 +--norecombine +--short-concatenation-item-length=22 +--space-after-keyword='do do while do' +--space-backslash-quote=2 +--nospace-for-semicolon +--space-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--tight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--variable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=2 +--weld-nested-containers + +==> b148.in <== +# state 1 +@yydgoto=( + 1,25,140,86,36,129,141,155,90,159,28,82,38,48, + 132,40,91,147,134,151,160,29,130,77,78,158,30, ); + +# state 2 +@yydgoto=( + 1,25,140,86,36,129,141,155,90,159,28,82,38,48,132,40,91,147,134,151,160,29,130,77,78,158,30, ); + + +==> b148.par <== +--noadd-whitespace +--break-before-paren-and-indent=1 +--break-before-paren=2 +--extended-continuation-indentation +--maximum-line-length=95 +--paren-vertical-tightness-closing=1 +--variable-maximum-line-length + +==> b156.in <== +# State 1 +{ + sub new_body_for + { + if ( defined $outname ) + { + return MIME::Body::File + ->new ( $parser + ->output_path ( $head ) ); + } + } +} +__END__ +# State 2 +{ + + sub new_body_for + { + if ( defined $outname ) + { + return MIME::Body::File + ->new ( + $parser->output_path ( + $head ) ); + } + } +} + +==> b156.par <== +--brace-left-and-indent +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=34 +--paren-tightness=0 +--space-function-paren +--variable-maximum-line-length +--weld-nested-containers + +==> b163.in <== +# State 1 +Readonly::Scalar + my$EXPL + => + [ + 71, + 72 + ] + ; + +# State 2 + +Readonly::Scalar + my$EXPL + => +[71, + 72]; + + + +==> b163.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=3 +--continuation-indentation=7 +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=7 + +==> b172.in <== +# State 1 + + my%invalid_defaults=( + foo=>1,bar=>2, ); + +# state 2 + + my%invalid_defaults=( + foo=>1,bar=>2, + ); + +==> b172.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--comma-arrow-breakpoints=3 +--line-up-parentheses +--maximum-line-length=30 + +==> b173.in <== +{ + + $self->{_all_list_funcs} + ={hashify keys%{$self->{_list_funcs}}, + keys%{$self->{_add_list_funcs}}}; + +} + +{ + + $self->{_all_list_funcs}={ + hashify keys%{$self->{_list_funcs}}, + keys%{$self->{_add_list_funcs}} }; + +} + +==> b173.par <== +--noadd-whitespace +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--continuation-indentation=9 +--ignore-old-breakpoints +--opening-brace-always-on-right + +==> b174.in <== +our %EXPORT_TAGS = + ( all => + \@EXPORT_OK + , ) ; + +==> b174.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=9 +--maximum-line-length=22 +--want-break-after='== **= x ^= .= /= | % * =~ x | = ^= !~ > &&=' + +==> b177.in <== +# State 1 +Readonly::Array + my@IGNORE_FOR_INTERPOLATION + =>( + q{$'},q{$$}, + q{$#},q{$:}, ) + ;## no critic ( RequireInterpolationOfMetachars, ProhibitQuotedWordLists ) + +# State 2 +Readonly::Array + my@IGNORE_FOR_INTERPOLATION + =>( + q{$'},q{$$},q{$#},q{$:}, ) + ;## no critic ( RequireInterpolationOfMetachars, ProhibitQuotedWordLists ) + + +==> b177.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=7 +--indent-columns=2 +--line-up-parentheses +--maximum-line-length=30 +--novalign + +==> b183.in <== +{ + { + { + { + my $var=$parts[$i]->[0]; + if( $var->isa('PPI::Token::Symbol') + ||$var->isa('PPI::Token::Cast')) + { + return$TRUE + if _has_array_sigil($var); + } + } + } + } +} + + +==> b183.par <== +--noadd-whitespace +--line-up-parentheses +--norecombine +--space-after-keyword='our while do if' + +==> b184.in <== +Readonly::Hash my%CAPTURE_REFERENCE_ENGLISH=> + ( + hashify(qw{ $LAST_PAREN_MATCH $LAST_MATCH_START $LAST_MATCH_END }), + %CAPTURE_REFERENCE ) + ; + +==> b184.par <== +--noadd-whitespace +--blank-lines-after-opening-block=0 +--blank-lines-before-closing-block=0 +--blank-lines-before-subs=2 +--noblanks-before-blocks +--noblanks-before-comments +--block-brace-vertical-tightness=2 +--brace-left-and-indent +--brace-vertical-tightness-closing=1 +--brace-vertical-tightness=1 +--nobreak-after-all-operators +--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--break-at-old-method-breakpoints +--break-at-old-semicolon-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--break-before-paren-and-indent=1 +--break-before-paren=3 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=1 +--check-syntax +--closing-brace-indentation=1 +--closing-paren-indentation=3 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=45 +--closing-side-comment-maximum-text=89 +--closing-side-comment-warnings +--closing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=1 +--closing-token-indentation=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=6 +--nocuddled-block-list-exclusive +--cuddled-break-option=20 +--cuddled-else +--default-tabsize=1 +--delete-block-comments +--nodelete-closing-side-comments +--delete-old-whitespace +--nodelete-semicolons +--nodelete-side-comments +--entab-leading-whitespace=0 +--fixed-position-side-comment=55 +--nofuzzy-line-length +--nohanging-side-comments +--noignore-old-breakpoints +--ignore-side-comment-lengths +--indent-closing-brace +--indent-columns=6 +--indent-spaced-block-comments +--nokeep-interior-semicolons +--keep-old-blank-lines=46 +--keep-old-breakpoints-after='=+' +--keep-old-breakpoints-before='sub' +--keyword-group-blanks-before=2 +--keyword-group-blanks-inside +--keyword-group-blanks-repeat-count=69 +--keyword-group-blanks-size='2' +--keyword-paren-inner-tightness=0 +--line-up-parentheses +--nological-padding +--long-block-line-count=81 +--nolook-for-autoloader +--nolook-for-selfloader +--maximum-consecutive-blank-lines=4 +--maximum-fields-per-table=11 +--maximum-file-size-mb=92 +--maximum-level-errors=79 +--maximum-line-length=87 +--maximum-unexpected-errors=57 +--minimum-space-to-comment=5 +--nonon-indenting-braces +--nospace-after-keyword='garbage1 local garbage1 do' +--nowant-left-space='-= <= |= **= /= =~ **= += &= > *= += &= **= & / >' +--nowant-right-space='== ^= < >>= / x & |= != + x <= | <<= %= x >=' +--one-line-block-nesting=2 +--one-line-block-semicolons=48 +--opening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--opening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-static-block-comments +--paren-tightness=0 +--paren-vertical-tightness-closing=2 +--paren-vertical-tightness=1 +--norecombine +--short-concatenation-item-length=2 +--show-options +--space-after-keyword='our our if while' +--space-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +#--tabs +--notight-secret-operators +--trim-pod +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=1 +--want-break-after='* %= %= **= | &= == * //= > *= > |= &= <<= & **=' +--want-break-before='-= ||= &&= ^= / =~ == >= <<= == = -= !~ - //= & >=' +--want-left-space='x= x /= &= !~ / = x !~ /= &= -= ^= >>= %= | |' +--want-right-space='^= /= !~ x < >= == = ||= < != = <<= * -= <= <<=' +#--whitespace-cycle=44 + +==> b186.in <== +# State 1 + if ($EVAL_ERROR) + { $errors + ->add_exception( $self + ->_new_global_value_exception( + option_name => $option_name, + option_value => $theme_rule, + source => $source, + message_suffix => q{is not syntactically valid.}, + ) ); + } + +# State 2 + if ($EVAL_ERROR) + { $errors->add_exception( + $self->_new_global_value_exception( + option_name => $option_name, + option_value => $theme_rule, + source => $source, + message_suffix => + q{is not syntactically valid.}, + ) + ); + } + +==> b186.par <== +--block-brace-vertical-tightness=2 +--brace-left-and-indent +--continuation-indentation=5 +--indent-columns=7 +--maximum-line-length=77 +--norecombine +--weld-nested-containers + +==> b191.in <== +$specification={name=>'test',description=>'A boolean parameter for testing', + behavior=>'boolean',}; + +$specification= + { + name=>'test', + description=>'A boolean parameter for testing', + behavior=>'boolean', + }; + + +==> b191.par <== +--noadd-whitespace +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--delete-old-whitespace +--ignore-old-breakpoints +--maximum-line-length=83 + +==> b192.in <== +Readonly::Scalar + my$EXPL + => + [ + 240, + 241 + ] + ; + +Readonly::Scalar + my$EXPL + => +[ 240, + 241 ] + ; + + +==> b192.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=3 +--continuation-indentation=7 +--line-up-parentheses +--maximum-line-length=7 +--vertical-tightness-closing=1 +--vertical-tightness=1 + +==> b194.in <== + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); + + return $length* $width* ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + )* 2/ ( $pi* $X* $Y ); + + +==> b194.par <== +--break-before-all-operators +--maximum-line-length=53 +--nowant-left-space='&&= <= == == < <= & * **= >= < / &&= > = != =~' +--want-break-before='|= x= * - >>= x= * < //= * * =~ & == &= >= *=' + +==> b198.in <== +# State 1 + return ( + log( sqrt( ( $XSQP1* $YSQP1 )/ ( 1 + $X* $X + $Y* $Y ) ) ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) ) + * 2/ ( $pi* $X* $Y ); + +# State 2 + return ( + log( sqrt( ( $XSQP1* $YSQP1 )/ ( 1 + $X* $X + $Y* $Y ) ) ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) )* 2/ ( $pi* $X* $Y ); + +==> b198.par <== +--break-before-all-operators +--nowant-left-space='&&= <= == == < <= & * **= >= < / &&= > = != =~' +--want-break-before='|= x= * - >>= x= * < //= * * =~ & == &= >= *=' + +==> b199.in <== +# State 1 + +{ + return( + log(sqrt(($XSQP1*$YSQP1)/(1+$X*$X+$Y*$Y))) + +$X*$RTYSQP1*atan2($X,$RTYSQP1) + +$Y*$RTXSQP1*atan2($Y,$RTXSQP1) + -$X*atan2($X,1) + -$Y*atan2($Y,1)) + *2/($pi*$X*$Y); +} + +# State 2 + +{ + return( + log(sqrt(($XSQP1*$YSQP1)/(1+$X*$X+$Y*$Y))) + +$X*$RTYSQP1*atan2($X,$RTYSQP1) + +$Y*$RTXSQP1*atan2($Y,$RTXSQP1) + -$X*atan2($X,1) + -$Y*atan2($Y,1))*2/($pi*$X*$Y); +} + +==> b199.par <== +--noadd-whitespace +--break-before-all-operators +--indent-columns=9 + +==> b203.in <== +# State 1 + local(%names)=('JAN',1,'FEB',2,'MAR',3,'APR',4,'MAY',5,'JUN',6, + 'JUL',7,'AUG',8,'SEP',9,'OCT',10,'NOV',11,'DEC',12 ); + +# State 2 + local(%names)=( + 'JAN',1,'FEB',2,'MAR',3,'APR',4, + 'MAY',5,'JUN',6,'JUL',7,'AUG',8, + 'SEP',9,'OCT',10,'NOV',11,'DEC',12 + ); + + +==> b203.par <== +--noadd-whitespace +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=8 +--indent-columns=5 +--line-up-parentheses + +==> b205.in <== + if(testcmp({'-cmplines'=>\&msgcmp},$outfile,$cmpfile)){ + ...; + } + +==> b205.par <== +--noadd-whitespace +--ignore-old-breakpoints +--indent-columns=10 +--maximum-line-length=67 +--weld-nested-containers + +==> b215.in <== +# State 1 + local (%units)=( "in", "in", "pt","pt","pc", "pi", + "mm", "mm","cm","cm","\\hsize", "%" ); + +# State 2 + local (%units)=( "in", "in", "pt","pt", + "pc", "pi","mm", "mm", + "cm","cm","\\hsize", "%" + ); + +==> b215.par <== +--noadd-whitespace +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=5 +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=63 +--paren-vertical-tightness=1 + +==> b224.in <== + # State 1 + my $newC =int( + ( $v{'y'}+ + 5 - + int($c->canvasy($y)) - + 5 * $v{'width'} + )/10 + ); + + # State 2 + my $newC = + int( + ( $v{'y'}+ + 5 - + int($c->canvasy($y)) - + 5 * $v{'width'})/ + 10); + + + # state 3 + my $newC = + int( + ( $v{'y'}+ + 5 - + int($c->canvasy($y)) - + 5 * $v{'width'})/ + 10); + + # State 4 = 1 + +==> b224.par <== +--noadd-whitespace +--continuation-indentation=5 +--extended-continuation-indentation +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=63 +--paren-vertical-tightness=1 +--norecombine + +==> b225.in <== +# State 1 (opened up) +{ + { + { + if( $IDXSIZE + &&( + ( $i=( $#MListOrder+1)-$IDXSIZE + )>0 ) ) + { + ...; + } + } + } +} + +# State 2 (tighter) + +{ + { + { + if( $IDXSIZE + &&( ( $i=( $#MListOrder+1)-$IDXSIZE) + >0 ) ) + { + ...; + } + } + } +} + +==> b225.par <== +--noadd-whitespace +--extended-continuation-indentation +--line-up-parentheses +--maximum-line-length=63 +--norecombine +--short-concatenation-item-length=35 +--space-after-keyword='local do do do' +--nospace-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--tight-secret-operators +--trim-pod +--notrim-qw +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=2 + +==> b235.in <== + foreach (sort(keys(%{ $gDtdGroups{$lDoctype} }))) { + ...; + } + +==> b235.par <== +--blank-lines-after-opening-block=2 +--blank-lines-before-closing-block=1 +--blank-lines-before-packages=0 +--noblanks-before-blocks +--block-brace-tightness=1 +--brace-vertical-tightness-closing=1 +--brace-vertical-tightness=1 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-logical-breakpoints +--nobreak-at-old-method-breakpoints +--break-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace=2 +--break-before-paren-and-indent=1 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=3 +--closing-brace-indentation=3 +--closing-paren-indentation=1 +--closing-side-comment-interval=43 +--closing-side-comment-maximum-text=6 +--noclosing-side-comment-warnings +--closing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=1 +--closing-token-indentation=2 +--comma-arrow-breakpoints=3 +--continuation-indentation=9 +--nocuddled-block-list-exclusive +--cuddled-break-option=71 +--default-tabsize=3 +--nodelete-block-comments +--nodelete-closing-side-comments +--nodelete-semicolons +--nodelete-side-comments +--entab-leading-whitespace=7 +--fixed-position-side-comment=38 +--nofuzzy-line-length +--nohanging-side-comments +--noignore-old-breakpoints +--ignore-side-comment-lengths +--indent-closing-brace +--indent-columns=6 +--noindent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=20 +--keep-old-breakpoints-after='subaru' +--keep-old-breakpoints-before='train' +--keyword-group-blanks-before=2 +--keyword-group-blanks-inside +--keyword-group-blanks-repeat-count=45 +--keyword-group-blanks-size='10' +--line-up-parentheses +--nological-padding +--nolook-for-selfloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=79 +--maximum-file-size-mb=48 +--maximum-level-errors=73 +--maximum-line-length=66 +--maximum-unexpected-errors=79 +--nomemoize +--minimum-space-to-comment=9 +--nonon-indenting-braces +--nospace-after-keyword='our local while our' +--nowant-left-space='> += &= | > | *= + -= / =~ /= //= *= %= =~ !=' +--nowant-right-space='= & * += != /= /= | <<= / / >= / > >>= !~ *' +--one-line-block-nesting=89 +--one-line-block-semicolons=65 +--noopening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-hash-brace-right +--noopening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-comments +--nooutdent-long-quotes +--nooutdent-static-block-comments +--paren-tightness=2 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 +--norecombine +--short-concatenation-item-length=57 +--space-after-keyword='do our while local' +--nospace-for-semicolon +--space-function-paren +--nospace-keyword-paren +--space-prototype-paren=2 +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tight-secret-operators +--trim-pod +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=1 +--want-break-after='<= =~ += = /= .= &= | == ||= *= + ||= x < x ==' +--want-break-before='- += ^= &&= %= %= / <= += >>= != .= * //= == x= &&=' +--want-left-space='>= %= !~ **= != * / = + < / == == x * >= >>=' +--want-right-space='> ^= ||= **= .= .= .= x= > + |= < !~ x = >>= %' +--warning-output +--weld-nested-containers + +==> b237.in <== +# State 1 + %args =( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + +# State 2 + + %args =( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + +# State 3 + %args =( + '_junk_', + split( + /\n([^=]+)=/, + $html_post_attributes + ) + ); + +# State 4 + %args = + ( + '_junk_', + split( + /\n([^=]+)=/, + $html_post_attributes + ) + ); + +# State 5 = State 1 + + %args = + ( + '_junk_', + split(/\n([^=]+)=/,$html_post_attributes) + ); + +==> b237.par <== +--noadd-whitespace +--break-before-paren=2 +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=66 + +==> b242.in <== + unless ( $Printed{$index} + || ( $HasRef{$index} + && $TVisible{ $HasRef{$index} } ) ) + + unless ( $Printed{$index} + || ( $HasRef{$index} + && $TVisible{ $HasRef{$index} } ) + ) + +==> b242.par <== +--noadd-whitespace +--continuation-indentation=5 +--extended-continuation-indentation +--keyword-paren-inner-tightness=2 +--line-up-parentheses +--maximum-line-length=63 +--norecombine +--short-concatenation-item-length=35 +--space-after-keyword='local do do do' +--nospace-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--tight-secret-operators +--trim-pod +--notrim-qw +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=2 + +==> b249.in <== +# State 1 +sub parallel_plates_viewfactor +{ + return + $length* $width + * ( + log( + sqrt( ( $XSQP1* $YSQP1 )/( 1 +$X* $X +$Y* $Y ) ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/( $pi* $X* $Y ); + } + +==> b249.par <== +--break-before-square-bracket=2 +--indent-columns=7 +--line-up-parentheses + +==> b263.in <== +# State 1 + my $eps = [ $eps_box_front, 0.99, $eps_shield, + $eps_shield, $eps_shield, $eps_shield ]; + +# State 2 + my $eps = [ + $eps_box_front, 0.99, $eps_shield, + $eps_shield, $eps_shield, $eps_shield + ]; + + +==> b263.par <== +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=1 +--continuation-indentation=9 +--want-break-before='&= >= = &&= %= **= < %= >>= -= * & >= |= != &= >>=' + +==> b298.in <== +# State 1 +sub MAILhead_get_disposition +{ + local ( $disp, + $filename + ) + = ( '', + '' + ); +} + +__END__ + +# State 2 +sub MAILhead_get_disposition +{ + local ( $disp, + $filename + ) + = ( '', + '' ); +} + + +==> b298.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=23 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 + +==> b311.in <== +# State 1 + +{ + return $length* $width* ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + )* 2/ ( $pi* $X* $Y ); +} + +# State 2 + +{ + return + $length* $width + * ( + log( + sqrt( + ( $XSQP1* $YSQP1 ) + / ( 1 + $X* $X + $Y* $Y ) + ) + ) + + $X* $RTYSQP1* atan2( $X, $RTYSQP1 ) + + $Y* $RTXSQP1* atan2( $Y, $RTXSQP1 ) + - $X* atan2( $X, 1 ) + - $Y* atan2( $Y, 1 ) + ) + * 2/ ( $pi* $X* $Y ); +} + +==> b311.par <== +--break-before-all-operators +--maximum-line-length=53 +--nowant-left-space='&&= <= == == < <= & * **= >= < / &&= > = != =~' +--want-break-before='|= x= * - >>= x= * < //= * * =~ & == &= >= *=' + +==> b317.in <== +# State 1 +my $xyz_b= [ [ 0, 0, $sepdis ], [ 1, 0, $sepdis ], [ 1, 1, $sepdis ], + [ 0, 1, $sepdis ] ]; + +# State 2 + +my $xyz_b= [ + [ 0, 0, $sepdis ], + [ 1, 0, $sepdis ], + [ 1, 1, $sepdis ], + [ 0, 1, $sepdis ] +]; + +==> b317.par <== +--break-before-all-operators +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--continuation-indentation=3 +--nowant-left-space='&&= <= == == < <= & * **= >= < / &&= > = != =~' +--want-break-before='|= x= * - >>= x= * < //= * * =~ & == &= >= *=' + +==> b357.in <== +# State 1 + + if () + { + ( $psect, $pcard ) = + ( $sect, + $card ); + } +# State 2 + + if () + { + ( $psect, $pcard ) = + ( $sect, $card ); + } + +==> b357.par <== +--brace-left-and-indent +--break-before-paren-and-indent=2 +--break-before-paren=3 +--continuation-indentation=8 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=29 +--nowant-right-space='<= /= |= %= <= = - | % <= != ||= <= * >>= &&= |' +--variable-maximum-line-length + +==> b358.in <== + # State 2 + &smsg( sprintf( "(autoloading %s from byte %07o)\n", $__fun__, $__addr__ ) ) + if $Start_Pid == $$ && &debugging('autoload'); + + # State 2 + &smsg( + sprintf( "(autoloading %s from byte %07o)\n", $__fun__, + $__addr__ ) + ) if $Start_Pid == $$ && &debugging('autoload'); + + +==> b358.par <== +--continuation-indentation=6 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=85 +--opening-brace-always-on-right +--weld-nested-containers + +==> b359.in <== +# State 1 + @NNVN_w3 = ( Unclutters, Unfetters, Unifies, Unites, Unseats, Upgrades, + Upstages, Uses, Usurps, ); + +# State 2 + @NNVN_w3 = ( Unclutters, Unfetters, Unifies, Unites, + Unseats, Upgrades, Upstages, Uses, + Usurps, ); + + +==> b359.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=7 +--extended-continuation-indentation +--paren-vertical-tightness-closing=1 + +==> b360.in <== +# State 1 +( + $verbose, $showall, + $short + ) + = ( $opt_v, $opt_V, + $opt_s ); + +# State 2 +( + $verbose, $showall, + $short + ) + = ( + $opt_v, $opt_V, $opt_s + ); + + +==> b360.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=5 +--maximum-line-length=29 + +==> b361.in <== +# State 1 +@cols = + ( \@row1, + \@row2, + \@row3 ); + +# State 2 + +@cols = +( \@row1, \@row2, + \@row3 ); + +==> b361.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--extended-continuation-indentation +--ignore-old-breakpoints +--maximum-line-length=17 +--paren-vertical-tightness-closing=1 +--variable-maximum-line-length +--vertical-tightness=1 + +==> b362.in <== + my@thou=( + "", + qw( M MM MMM ) + ); + + my@thou= + ( + "",qw( M MM MMM ) + ); + +==> b362.par <== +--noadd-whitespace +--break-before-paren-and-indent=1 +--break-before-paren=3 +--extended-continuation-indentation +--ignore-old-breakpoints +--maximum-line-length=17 +--variable-maximum-line-length +--vertical-tightness=1 + +==> b363.in <== +# State 1 +@_default_data{ + qw(_name _artist _publisher _ISBN _tracks _rating + _room _shelf ) + } + = ( '???', '???', '???', 0, '???', -1, + "uncataloged", "" ); + +# State 2 + +@_default_data{ + qw(_name _artist _publisher _ISBN _tracks _rating + _room _shelf ) + } + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + + +==> b363.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=7 +--ignore-old-breakpoints +--maximum-line-length=60 + +==> b364.in <== +# State 1 + +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( '???', '???', '???', 0, '???', -1, + "uncataloged", "" ); + +# State 2 +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + + +==> b364.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=7 +--ignore-old-breakpoints +--maximum-line-length=60 + +==> b365.in <== +# State 1 +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( '???', '???', '???', 0, '???', -1, + "uncataloged", "" ); + +# State 2 + +@_default_data[ + NAME, ARTIST, PUBLISHER, ISBN, + TRACKS, RATING, ROOM, SHELF + ] + = ( + '???', '???', '???', 0, '???', -1, "uncataloged", "" + ); + +==> b365.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=7 +--ignore-old-breakpoints +--maximum-line-length=60 + +==> b366.in <== + +# State 1 +%desc = +( + blue => "moon", + green => "egg", red => "Baron", +); + +# State 2 +%desc = +(blue => "moon", + green => "egg", red => "Baron", +); + + +==> b366.par <== +--break-at-old-comma-breakpoints +--break-before-paren-and-indent=1 +--break-before-paren=3 +--indent-columns=1 +--maximum-line-length=49 +--paren-vertical-tightness=1 + +==> b367.in <== +# State 1 + %s2 = + ( + "cat" => 1, "dog" => 2, "gorilla" => 3, + goldfish => 3 ); + +# State 2 + %s2 = + ( "cat" => 1, "dog" => 2, "gorilla" => 3, + goldfish => 3 ); + + +==> b367.par <== +--break-at-old-comma-breakpoints +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=8 +--line-up-parentheses +--maximum-line-length=49 +--paren-vertical-tightness=1 + +==> b368.in <== +# State 1 + my %args = + ( + lines => 23, prompt => "--More--", + endprompt => "--No more--", @_ ); + + # State 2 + my %args = + ( lines => 23, prompt => "--More--", + endprompt => "--No more--", @_ ); + + +==> b368.par <== +--break-at-old-comma-breakpoints +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=8 +--line-up-parentheses +--maximum-line-length=49 +--paren-vertical-tightness=1 +--variable-maximum-line-length + +==> b369.in <== +# State 1 +my %sound = + ( + "homo sapiens vendax" => "Have a nice day!", + "h" => "???" ); + +# State 2 +my %sound = +( "homo sapiens vendax" => "Have a nice day!", + "h" => "???" ); + + +==> b369.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=8 +--line-up-parentheses +--maximum-line-length=49 +--paren-vertical-tightness=1 + +==> b370.in <== +# State 1 + $impl->{ lc $key } = + { + key => $key, + value => $newval }; + +# State 2 + $impl->{ lc $key } = + { key => $key, + value => $newval }; + +==> b370.par <== +--brace-vertical-tightness=1 +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--continuation-indentation=8 +--nological-padding +--long-block-line-count=75 +--nolook-for-autoloader +--nolook-for-selfloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=1 +--maximum-file-size-mb=21 +--maximum-level-errors=12 +--maximum-line-length=49 +--maximum-unexpected-errors=6 +--nomemoize +--minimum-space-to-comment=1 +--nospace-after-keyword='34 local while garbage1' +--nowant-left-space='& += x= -= > <<= <<= &&= ^= x **= <= x *= ||= **= !=' +--nowant-right-space='.= //= x >>= /= += = ||= % | -= <= /= = x -= +' +--one-line-block-nesting=15 +--one-line-block-semicolons=43 +--noopening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--noopening-hash-brace-right +--opening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-comments +--outdent-static-block-comments +--paren-tightness=2 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 +--nopass-version-line +--short-concatenation-item-length=67 +--space-after-keyword='if my local do' +--nospace-for-semicolon +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--static-side-comments +--notight-secret-operators +--notrim-pod +--variable-maximum-line-length +--vertical-tightness-closing=2 + +==> b371.in <== +# State 1 +@_index_for{ + qw(name artist publisher ISBN tracks rating room shelf) + } = +( NAME, ARTIST, PUBLISHER, ISBN, TRACKS, RATING, + ROOM, SHELF ); + +# State 2 +@_index_for{ + qw(name artist publisher ISBN tracks rating room shelf) + } = + ( NAME, ARTIST, PUBLISHER, ISBN, TRACKS, + RATING, + ROOM, SHELF + ); + + +==> b371.par <== +--break-at-old-comma-breakpoints +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=8 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=49 +--paren-vertical-tightness=1 + +==> b372.in <== +# State 1 + +multimethod multi => + ( A_Parent, B_Parent, + C_Parent ) => sub { + print +"dispatched to &A_Parent::multi\n"; + }; + +# State 2 + +multimethod multi => + ( A_Parent, B_Parent, + C_Parent + ) => sub { + print +"dispatched to &A_Parent::multi\n"; + }; + + +==> b372.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=9 +--ignore-old-breakpoints +--maximum-line-length=37 +--norecombine + +==> b373.in <== +# State 1 + +@sound{"mouse", "bird"}= ( + "ariba!","itortitawapuddytat" +); + +# State 2 + +@sound{"mouse", "bird"}= ("ariba!", + "itortitawapuddytat"); + +==> b373.par <== +--noadd-whitespace +--break-before-all-operators +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=9 +--ignore-old-breakpoints +--maximum-line-length=37 + +==> b374.in <== +# State 1 +@virtues = ( "faith", "hope", + @deadly_sins ); + +# State 2 +@virtues = ( + "faith", "hope", + @deadly_sins ); + +==> b374.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=9 +--extended-continuation-indentation +--ignore-old-breakpoints +--maximum-line-length=37 +--paren-vertical-tightness-closing=1 + +==> b375.in <== +# State 1 +foreach + ( + @very_long_list + ) +{ if($token + ->can( + "pretty_print" + )) + { ... ; + } +} + +# State 2 + +foreach + ( + @very_long_list + ) +{ + if( + $token + ->can( + "pretty_print" + )) + { ... ; + } +} + +==> b375.par <== +--noadd-whitespace +--block-brace-vertical-tightness=2 +--nodelete-old-newlines +--maximum-line-length=15 +--norecombine +--short-concatenation-item-length=71 +--show-options +--space-after-keyword='34 34 garbage1 do' +--space-backslash-quote=2 +--space-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--stack-opening-square-bracket +--tight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=0 +--weld-nested-containers + +==> b376.in <== +# State 1 + +multimethod multi => + ( A_Child, B_Child, + C_Child + ) => sub { + print +"dispatched to &A_Child::multi\n"; + }; + +# State 2 + +multimethod multi => +( A_Child, B_Child, + C_Child ) => sub { + print +"dispatched to &A_Child::multi\n"; + }; + +==> b376.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=5 +--maximum-line-length=30 + +==> b377.in <== +# State 1 +$graph->set( + y_tick_number => 8, + y_label_skip => 2, + bar_spacing => 4, + types => + [ + "bars", + "linespoints" + ], +); + +# State 2 + +$graph->set( + y_tick_number => 8, + y_label_skip => 2, + bar_spacing => 4, + types => + [ "bars", + "linespoints" + ], +); + +==> b377.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=2 +--line-up-parentheses +--maximum-line-length=24 +--square-bracket-vertical-tightness=2 + +==> b378.in <== +# State 1 + +use constant BG_COLOR=>( + 255,255,255 +); + +# State 2 + +use constant BG_COLOR=>( + 255,255,255 ); + + +==> b378.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=5 +--line-up-parentheses +--maximum-line-length=26 + +==> b379.in <== +# State 1 +use + constant + AXIS_COLOR => + ( 0, 0, + 0 ) ; + +# State 2 +use + constant + AXIS_COLOR => + ( + 0, 0, 0 + ) ; + +==> b379.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--continuation-indentation=10 +--indent-columns=2 +--maximum-line-length=14 +--space-terminal-semicolon + +==> b380.in <== +# State 1 +use constant BG_COLOR=>( + 255,255,255 +); + +# State 2 +use constant BG_COLOR=>( + 255,255,255 ); + +==> b380.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=1 +--continuation-indentation=10 +--line-up-parentheses +--maximum-line-length=26 + +==> b381.in <== +# state 1 + + my$self={firstName=>shift(), + lastName=>shift(), }; + +# State 2 + my$self={firstName=> + shift( + ), + lastName=>shift( + ), }; + +==> b381.par <== +--noadd-whitespace +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=1 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=40 +--vertical-tightness-closing=1 +--vertical-tightness=1 + +==> b382.in <== +# state 1 +my$hash={"I'm a"=>" little tea cup", + " short"=>" and stout..." }; + +# state 2 +my$hash={"I'm a"=> + " little tea cup", + " short"=>" and stout..." }; + +==> b382.par <== +--noadd-whitespace +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=1 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=9 +--maximum-line-length=40 +--vertical-tightness-closing=1 +--vertical-tightness=1 + +==> b396.in <== +# State 1 + +my $array3 = + [ "anonymous", + [ "array", "in", "an", "array" ], + { "plus" => "a", + "hash" => "in", + }, + "as", "well" + ]; + +# State 2 + +my $array3 = + [ "anonymous", + [ "array", "in", "an", "array" ], + { "plus" => "a", + "hash" => "in", + }, + "as", "well" + ]; + +==> b396.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=2 +--line-up-parentheses +--vertical-tightness=1 + +==> b427.in <== +# State 1 +@items = +( a ( { -href => "addforum.pl" }, "Add a Forum" ), + "Delete a Forum", + "Modify a Forum" +); + +# State 2 +@items = ( a ( {-href => "addforum.pl"}, "Add a Forum" ), "Delete a Forum", + "Modify a Forum" ); + +==> b427.par <== +--brace-tightness=2 +--break-before-paren-and-indent=1 +--break-before-paren=3 +--ignore-old-breakpoints +--maximum-line-length=85 +--space-function-paren +--vertical-tightness=2 + +==> b450.in <== +my %reverse = ( + "left" => "right", + "right" => "left", + "" => "" +); + +my %reverse + = ( "left" => "right", "right" => "left", + "" => "" ); + +==> b450.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--comma-arrow-breakpoints=3 +--maximum-line-length=50 + +==> b454.in <== +# Complex +$diff = Math::BigFloat->new( + ( Math::BigFloat->new( + ( Math::BigFloat + ->new( + ( Math::BigFloat + ->new( + $China{gdp} + ->fmul( + $China{gdp_incr} + ) + ) )->fdiv( + Math::BigFloat + ->new( + $China{pop} + ->fmul( + $China{pop_incr} + ) + ) + ) + ) ) + ->fsub + ( Math::BigFloat + ->new( + ( Math::BigFloat + ->new( + $USA{gdp} + ->fmul( + $USA{gdp_incr} + ) + ) )->fdiv( + Math::BigFloat + ->new( + $USA{pop} + ->fmul( + $USA{pop_incr} + ) + ) + ) + ) ) + ) )->fabs() +); + + +==> b454.par <== +--break-at-old-method-breakpoints +--continuation-indentation=9 +--extended-continuation-indentation +--indent-columns=3 +--maximum-line-length=34 +--weld-nested-containers + +==> b455.in <== +# State 1 + + %u = + ( "cat" => 1, + "dog" => 2, + "gorilla" => 3, + goldfish => 3 + ); + +# State 2 + + %u = + ( + "cat" => 1, + "dog" => 2, + "gorilla" => 3, + goldfish => 3 + ); + +==> b455.par <== +--break-before-paren-and-indent=2 +--break-before-paren=3 +--line-up-parentheses +--vertical-tightness=1 + +==> b496.in <== + my %package_details = ( + LOCATION => $loc, + INST_DATE => $instdate, + INST_ROOT => $root, + INST_PACKLIST => $packlist, + INST_PPD => $ppd + ); + + my %package_details = ( LOCATION => $loc, + INST_DATE => $instdate, + INST_ROOT => $root, + INST_PACKLIST => $packlist, + INST_PPD => $ppd + ); + +==> b496.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--line-up-parentheses +--variable-maximum-line-length +--vertical-tightness=1 + +==> b499.in <== +if ( +/msie/ + ) +{ + msie( $_ + ) + ; +} + +if ( +/msie/ + ) +{ + msie( $_ + ) + ; +} + +if ( +/msie/ + ) +{ + msie( + $_ + ) + ; +} + +==> b499.par <== +--noadd-whitespace +--indent-columns=10 +--line-up-parentheses +--maximum-line-length=7 + +==> b507.in <== +# State 1 + my%all_options=( + %{$opt},%{$self->{DEFAULTS}} + ); + +# State 2 + my%all_options=( + %{$opt}, + %{ + $self->{DEFAULTS} + } + ); + +# State 3 + my%all_options= + ( + %{$opt}, + %{ + $self->{DEFAULTS} + } + ); + +# State 4 + my%all_options= + ( + %{$opt},%{$self->{DEFAULTS}} + ); + +==> b507.par <== +--noadd-whitespace +--break-before-paren=2 +--indent-columns=1 +--line-up-parentheses +--maximum-line-length=36 +--stack-closing-hash-brace + +==> b511.in <== +# State 1 (the - is type 'm' and did not have a bond strength) +$a + =i - + pdl( 2, + 3 ); + +# State 2 +$a + =i + -pdl( + 2, + 3 ); + +==> b511.par <== +--break-before-all-operators +--continuation-indentation=5 +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=12 +--nowant-right-space='=~ += !~ //= + =~ + &&= = =~ - /= //= x >>= !~ >=' + +==> b520.in <== +# State 1 +my ($xp, + $yp) + = + cursor ({ + Type => + 'CrossHair' + }) ; + +# State 2 +my ($xp, + $yp) + = cursor ({ + Type => + 'CrossHair' + }) ; + +==> b520.par <== +--continuation-indentation=1 +--line-up-parentheses +--maximum-line-length=10 +--paren-tightness=2 +--space-function-paren +--weld-nested-containers + +==> b523.in <== + foreach my $name (@$names) + { unless ($callcopy) + { $ret .= << "EOC"} +XX +EOC + } + + foreach my $name (@$names) + { unless ($callcopy) + { $ret .= << "EOC"} +XX +EOC + } + +==> b523.par <== +# the problem is the bbvt=2 flag +--block-brace-vertical-tightness=2 +--brace-left-and-indent + +==> b527.in <== +$w2->points( + $x->index($ii), + sqrt + ( $x + -> + index + ( + $ii) ) +); + +$w2->points( + $x->index($ii), + sqrt( + $x->index( + $ii) + ) +); + +$w2->points( + $x + ->index( + $ii), + sqrt + ($x + ->index + ( + $ii)) + ); + +$w2->points( + $x + ->index( + $ii), + sqrt ( + $x + ->index + ( + $ii) + )); + +==> b527.par <== +--continuation-indentation=10 +--maximum-line-length=20 +--norecombine +--weld-nested-containers + +==> b530.in <== +ok( + tapprox( + $a, + $b)); + +ok(tapprox($a, $b)); + + +==> b530.par <== +--break-before-all-operators +--continuation-indentation=10 +--extended-continuation-indentation +--nofuzzy-line-length +--maximum-line-length=20 +--weld-nested-containers + +==> b534.in <== +ok( + int + ( $yp + -> + at( + 0 + ) ) + == 8 +); + +# State 2 + +ok( + int( + $yp + -> + at( + 0 + ) + ) == 8 +); + + +==> b534.par <== +--continuation-indentation=10 +--extended-continuation-indentation +--maximum-line-length=20 +--weld-nested-containers + +==> b538.in <== +WriteMakefile( 'NAME' => 'PDL', + 'VERSION_FROM' => 'Core/Version.pm', + 'PM' => \%pm, + 'MAN3PODS' => \%man3pods, + 'DIR' => + [ 'Pod', 'Gen', 'Core', 'Bad', 'Ops', 'Ufunc', + 'Primitive', 'Slices', 'Test', 'Math', 'Complex' + ], ) ; + +WriteMakefile( + 'NAME' => 'PDL', + 'VERSION_FROM' => 'Core/Version.pm', + 'PM' => \%pm, + 'MAN3PODS' => \%man3pods, + 'DIR' => + [ + 'Pod', 'Gen', 'Core', 'Bad', 'Ops', 'Ufunc', + 'Primitive', 'Slices', 'Test', 'Math', 'Complex' + ], +); + + + +==> b538.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=2 +--line-up-parentheses +--square-bracket-vertical-tightness=1 + +==> b542.in <== +my %init = + ( i => { + size => 'm_size', + off => 'poff', + init => '1-p_size' + }, + j => { + size => 'n_size', + off => 'qoff', + init => '1-q_size' + }, + ); + +my %init = + ( + i => { + size => 'm_size', + off => 'poff', + init => '1-p_size' + }, + j => { + size => 'n_size', + off => 'qoff', + init => '1-q_size' + }, + ); + +==> b542.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--line-up-parentheses +--paren-vertical-tightness=2 + +==> b552.in <== +# State 1 + $entries->[$_] = + { 'nextState' => $nextState, + 'flags' => $flags }; + +# State 2 + $entries->[$_] = + { + 'nextState' => $nextState, + 'flags' => $flags }; + +==> b552.par <== +--brace-vertical-tightness=1 +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--indent-columns=2 +--maximum-line-length=44 +--vertical-tightness-closing=2 + +==> b561.in <== +sub insert_into_db { + + + + my (%sqlfuncs) + = ('pgsql' => { + 'func' => \&common_sql_insert, + 'driver' => 'Pg', + 'autocommit' => 0, }, + 'oracle' => { + 'func' => \&common_sql_insert, + 'driver' => 'Oracle', + 'autocommit' => 0, }, + 'mysql' => { + 'func' => \&common_sql_insert, + 'driver' => 'mysql', + 'autocommit' => 1, },); + + } + + +==> b561.par <== +--blank-lines-after-opening-block=3 +--blank-lines-before-closing-block=1 +--blank-lines-before-packages=3 +--noblanks-before-comments +--block-brace-tightness=2 +--brace-tightness=0 +--brace-vertical-tightness=1 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-logical-breakpoints +--nobreak-at-old-method-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--break-before-paren-and-indent=1 +--break-before-paren=1 +--break-before-square-bracket=2 +--closing-brace-indentation=1 +--closing-side-comment-interval=73 +--closing-side-comment-maximum-text=63 +--closing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=1 +--closing-token-indentation=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=9 +--nocuddled-block-list-exclusive +--cuddled-break-option=44 +--cuddled-else +--nodelete-block-comments +--delete-closing-side-comments +--delete-side-comments +--entab-leading-whitespace=6 +--extended-continuation-indentation +--fixed-position-side-comment=30 +--nohanging-side-comments +--ignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-block-comments +--indent-closing-brace +--indent-columns=1 +--noindent-spaced-block-comments +--nokeep-interior-semicolons +--keep-old-blank-lines=97 +--keyword-group-blanks-after=2 +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=31 +--keyword-group-blanks-size='4' +--line-up-parentheses +--long-block-line-count=36 +--nolook-for-autoloader +--maximum-fields-per-table=25 +--maximum-file-size-mb=69 +--maximum-level-errors=66 +--maximum-line-length=75 +--maximum-unexpected-errors=8 +--minimum-space-to-comment=5 +--nospace-after-keyword='while garbage1 while while' +--nowant-left-space='-= &&= .= /= !~ == < &&= / ||= > <<= =~ += / /= &=' +--nowant-right-space='+ //= / **= -= | & !~ >>= | //= !~ /= !~ < += .=' +--one-line-block-nesting=89 +--one-line-block-semicolons=67 +--opening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-hash-brace-right +--opening-paren-right +--opening-square-bracket-right +--noopening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-tightness=2 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=2 +--norecombine +--short-concatenation-item-length=19 +--show-options +--space-after-keyword='while do while our' +--nospace-for-semicolon +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=2 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--notight-secret-operators +--notrim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=0 +--want-break-after='x | &&= - > += |= - &= //= == = >>= %= -= <<= &=' +--want-break-before='/ - * =~ / = * != * | / |= < <= % = *=' +--want-left-space='%= & *= !~ ^= - &&= !~ ||= - !~ *= > //= / !~ &=' +--want-right-space='!= >>= ||= <<= %= ^= %= **= < %= = *= /= & += | &' +--weld-nested-containers + +==> b604.in <== + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ... + } + + if(grep($_ eq 'STDIN',@Ready)){ + ...; + } + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + + +==> b604.par <== +--noadd-whitespace +--comma-arrow-breakpoints=2 +--continuation-indentation=4 +--indent-columns=9 +--maximum-line-length=40 +--opening-brace-always-on-right +--weld-nested-containers + +==> b605.in <== +# State 1 + + if(grep($_ eq 'STDIN',@Ready)){ + ...; + } + +# State 2 + + if( + grep($_ eq 'STDIN', + @Ready) + ){ + ...; + } + +==> b605.par <== +--noadd-whitespace +--comma-arrow-breakpoints=2 +--continuation-indentation=4 +--indent-columns=9 +--maximum-line-length=40 +--opening-brace-always-on-right +--weld-nested-containers + +==> b610.in <== +# State 1 +elsif($Directives{'sortingdata0'}eq"location/ call number") + +__END__ + +# State 2 +elsif($Directives{'sortingdata0'}eq + "location/ call number") + +==> b610.par <== +--noadd-whitespace +--continuation-indentation=5 +--delete-old-whitespace +--extended-continuation-indentation +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=50 +--paren-tightness=2 +--variable-maximum-line-length +--vertical-tightness=2 + +==> b611.in <== +# State 1 + if ( + open + ( INFILE, +"$user_progs <$phone_out | $sort_progs |" + ) + ) + +# State 2 + if + ( open + ( INFILE, +"$user_progs <$phone_out | $sort_progs |" + ) ) + + +==> b611.par <== +--continuation-indentation=6 +--maximum-line-length=17 +--norecombine +--weld-nested-containers + +==> b612.in <== +# State 1 + if( + open + (INFILE, +"$user_progs <$phone_out | $sort_progs |" + ) + ) + +__END__ + +# State 2 + if + ( + open + (INFILE, +"$user_progs <$phone_out | $sort_progs |" + )) + +==> b612.par <== +--noadd-whitespace +--continuation-indentation=7 +--maximum-line-length=14 +--norecombine +--weld-nested-containers + +==> b613.in <== +my%where= + +( + Gary=>"Dallas",Lucy=>"Exeter", + Ian=>"Reading",Samantha=>"Oregon" +); + +==> b613.par <== +--noadd-semicolons +--noadd-whitespace +--blank-lines-after-opening-block=4 +--blank-lines-before-closing-block=2 +--blank-lines-before-subs=0 +--noblanks-before-blocks +--noblanks-before-comments +--block-brace-tightness=1 +--block-brace-vertical-tightness=2 +#--brace-left-and-indent +--brace-vertical-tightness=2 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--break-before-all-operators +--break-before-hash-brace=1 +--break-before-paren-and-indent=1 +--break-before-paren=1 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=3 +--check-syntax +--closing-brace-indentation=2 +--closing-paren-indentation=1 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=17 +--closing-side-comment-maximum-text=72 +--noclosing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=3 +--closing-token-indentation=0 +--comma-arrow-breakpoints=3 +--continuation-indentation=3 +--nocuddled-block-list-exclusive +--cuddled-break-option=50 +--default-tabsize=6 +--delete-block-comments +--nodelete-closing-side-comments +--nodelete-semicolons +--delete-side-comments +--entab-leading-whitespace=2 +--fixed-position-side-comment=71 +--noformat-skipping +--nofuzzy-line-length +--noignore-old-breakpoints +--ignore-side-comment-lengths +--indent-closing-brace +--indent-columns=3 +--noindent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=27 +--keep-old-breakpoints-after='train' +--keep-old-breakpoints-before='sub' +--keyword-group-blanks-after=2 +--keyword-group-blanks-repeat-count=59 +--keyword-group-blanks-size='2.8' +--keyword-paren-inner-tightness=0 +--noline-up-parentheses +--nological-padding +--long-block-line-count=9 +--nolook-for-autoloader +--maximum-fields-per-table=12 +--maximum-file-size-mb=95 +--maximum-level-errors=35 +--maximum-line-length=61 +--maximum-unexpected-errors=60 +--nospace-after-keyword='our do if do' +--nowant-left-space='&&= x >>= %= & & !~ //= *= x =~ **= * <<= .= &&= .=' +--nowant-right-space='<<= .= <= - x= | ^= >= / < ^= * >= !~ = !~ &=' +--one-line-block-nesting=89 +--one-line-block-semicolons=77 +--opening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-brace-on-new-line +--noopening-hash-brace-right +--opening-paren-right +--opening-square-bracket-right +--noopening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-labels +--nooutdent-long-quotes +--nooutdent-static-block-comments +--paren-tightness=0 +--paren-vertical-tightness-closing=2 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=63 +--show-options +--space-after-keyword='while local garbage1 if' +--nospace-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=2 +--stack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--static-side-comments +--notight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--variable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=2 +--want-break-after='|= & **= & & &= ^= &= !~ += / < += % >= &&= +' +--want-break-before='||= &&= >= |= &= >>= !~ !~ + x= -= + &= |= /= =~ /=' +--want-left-space='*= >= != % / += >>= !~ -= -= %= / & &= %= & =' +--want-right-space='>= * .= > =~ <= x += ||= - *= > ^= - == >= |=' +--whitespace-cycle=83 + +==> b614.in <== + if + ( open + ( SAVE, +"> $msgfile" + ) ) + + +==> b614.par <== +--brace-left-and-indent +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=7 +--maximum-line-length=19 +--weld-nested-containers + +==> b616.in <== + my %hash= + (Four => '4', Five => '5', Six => '6') ; + + my %hash= (Four => '4', + Five => '5', + Six => '6') ; + + +==> b616.par <== +--break-before-paren-and-indent=1 +--break-before-paren=1 +--continuation-indentation=9 +--ignore-old-breakpoints +--indent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=24 +#--keep-old-breakpoints-after='!' +#--keep-old-breakpoints-before='=+' +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=92 +--keyword-group-blanks-size='2.8' +--keyword-paren-inner-tightness=2 +--line-up-parentheses +--nological-padding +--long-block-line-count=65 +--maximum-fields-per-table=22 +--maximum-file-size-mb=78 +--maximum-level-errors=32 +--maximum-line-length=45 +--maximum-unexpected-errors=69 +--nomemoize +--minimum-space-to-comment=8 +--nospace-after-keyword='while do 34 our' +--nowant-left-space='||= <<= %= &= &= -= * += <<= % % <<= != &&= = += *=' +--nowant-right-space='%= |= % + += //= > <<= .= < |= | < x= .= == +' +--one-line-block-nesting=79 +--one-line-block-semicolons=77 +--noopening-anonymous-sub-brace-on-new-line +#--opening-brace-always-on-right +--opening-brace-on-new-line +--noopening-hash-brace-right +--opening-paren-right +--noopening-square-bracket-right +--noopening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-long-comments +--nooutdent-long-quotes +--nooutdent-static-block-comments +--paren-tightness=2 +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=60 +--show-options +--space-after-keyword='34 my our do' +--nospace-for-semicolon +--nospace-function-paren +--nospace-keyword-paren +--space-prototype-paren=2 +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=2 +--nostack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +#--tabs +--notight-secret-operators +--trim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 +--want-break-after='/ % //= - =~ = //= -= |= &&= <<= ^= -= &= ^= -= -=' +--want-break-before='> + .= ||= .= >>= **= *= < !~ == x x %= **= <<= <=' +--want-left-space='//= &&= !~ |= >= = &= ^= >>= <= - + <<= % > >>= <<=' +--want-right-space='x x -= / *= x= < > .= **= =~ <= |= x >= <= <=' +#--whitespace-cycle=18 + +==> b617.in <== +# State 1 +{ + my ( %reverse_genetic_code + ) + =( 'A' => + 'GCA GCC GCG GCT' + , + 'C' => 'TGC TGT', + 'D' => 'GAC GAT', + ) ; + } + +{ + my ( %reverse_genetic_code + ) + =( 'A' => + 'GCA GCC GCG GCT' + , + 'C' => + 'TGC TGT', + 'D' => + 'GAC GAT', + ) ; + } + +==> b617.par <== +--break-before-paren-and-indent=2 +--break-before-paren=3 +--line-up-parentheses +--paren-vertical-tightness=1 +--variable-maximum-line-length +--want-break-before='>= == = <<= & + -= |= ^= x += %= == //= //= | |' + +==> b623.in <== +# State 1 + @hsp_datum = ( + $hsp->range ( + 'query'), + $hsp->range ('sbjct') + ) ; +# State 2 + @hsp_datum = + ( $hsp->range ('query'), + $hsp->range ('sbjct') + ) ; + +==> b623.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--ignore-old-breakpoints +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=14 +--nopass-version-line +--short-concatenation-item-length=84 +--space-after-keyword='our do our local' +--space-backslash-quote=2 +--space-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tight-secret-operators +--notrim-pod +--notrim-qw +--variable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=2 + +==> b626.in <== +unless ( + open( FILEHANDLE, + $file ) ) + +unless ( open( + FILEHANDLE, $file +) ) + +unless ( open +( FILEHANDLE, $file ) ) + +==> b626.par <== +--continuation-indentation=7 +--maximum-line-length=23 +--paren-vertical-tightness-closing=1 +--weld-nested-containers + +==> b647.in <== + my ( $i, + $len, + $output + ) + = + ( 0, 0, '' + ); + + my ( $i, + $len, + $output + ) + = ( 0, + 0, + '' + ); + +==> b647.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=8 +--variable-maximum-line-length +--vertical-tightness=2 + +==> b650.in <== +%Bio::Tools::Sigcleave::WeightTable= + ('H'=> + [0,0,0,0,0,1,1,0,5,0,0,6,0,4,2,3.4], + ); + +%Bio::Tools::Sigcleave::WeightTable= + ( + 'H'=> + [ + 0,0,0,0,0,1,1,0,5,0,0,6,0,4,2,3.4 + ], + ); + +==> b650.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--indent-columns=1 +--maximum-line-length=37 + +==> b652.in <== +# State 1 + if ($strand == 1) + { + ($insertbegin,$insertend)=( + $self->{'seq'}->praeinsert_string( + $newseq,$label + ) + ); + } + +# State 2 + if ($strand == 1) + { + ($insertbegin,$insertend)=($self->{'seq'} + ->praeinsert_string($newseq,$label)); + } + +==> b652.par <== +--break-before-paren-and-indent=1 +--break-before-paren=3 +--continuation-indentation=7 +--ignore-old-breakpoints +--indent-columns=5 +--maximum-line-length=56 + +==> b657.in <== +if ( defined ( + $seqfile)) + + +==> b657.par <== +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=14 +--paren-tightness=2 +--short-concatenation-item-length=5 +--show-options +--space-after-keyword='do local 34 our' +--space-backslash-quote=2 +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--stack-opening-square-bracket +--static-side-comments +#--tabs +--tight-secret-operators +--notrim-pod +--notrim-qw +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 + +==> b689.in <== +# require => to be in a list + has 'bar' => + ( is => 'ro', handles => qr/baz/, + ) ; + + has 'bar' => + ( is => 'ro', handles => qr/baz/, ) ; + +==> b689.par <== +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--continuation-indentation=4 +--ignore-old-breakpoints + +==> b690.in <== +coerce 'ArrayRefOfThings'=>from + 'ArrayRef[Int]'=>via{[ + map{Thing->new(thing=>$_)}@{$_} + ]}; + +coerce 'ArrayRefOfThings'=>from + 'ArrayRef[Int]'=>via +{[map{Thing->new(thing=>$_)}@{$_}]}; + +==> b690.par <== +--noadd-whitespace +--continuation-indentation=5 +--maximum-line-length=43 +--one-line-block-nesting=21 +--opening-brace-on-new-line +--weld-nested-containers + +==> b722.in <== +# State 1 +has 'baz' => + ( is => 'ro', default => 'BAZ' ); + +# State 2 +has 'baz' => ( + is => 'ro', + default => 'BAZ' +); + +==> b722.par <== +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--continuation-indentation=10 +--ignore-old-breakpoints +--maximum-line-length=42 +--variable-maximum-line-length + +==> b746.in <== +# State 1 : +@eigenvalues= eigenvalue( [ + [ 3, 4 ], [ 4, -3 ] ] ); + +# State 2 : +@eigenvalues= + eigenvalue( + [ + [ 3, 4 ], [ 4, -3 ] + ] + ); + +@eigenvalues= + eigenvalue( [ + [ 3, 4 ], [ 4, -3 ], + ]); + +__END__ + +# This is the state if welded +@eigenvalues= eigenvalue( [ + [ 3, 4 ], [ 4, -3 ] ] ); + +# State if no weld +@eigenvalues= + eigenvalue( + [ + [ 3, 4 ], [ 4, -3 ] + ] + ); + +==> b746.par <== +--ignore-old-breakpoints +--line-up-parentheses +--maximum-line-length=27 +--nowant-left-space='=' +--weld-nested-containers + +==> b747.in <== + if ( @type + = grep /$data/i, + @Bio::Root::Err::ERR_TYPES + ) + +==> b747.par <== +--break-before-all-operators +--indent-columns=1 +--maximum-line-length=19 + +==> b750.in <== +# S1 + $self->_testStrand( $other, $so ) + and not( + ( + $self->start() > $other->end() + or $self->end() < $other->start() + ) + ) + +__END__ +# S2 + $self->_testStrand( $other, $so ) + and not( ( + $self->start() > $other->end() + or $self->end() < $other->start() + ) ) + + +==> b750.par <== +--indent-columns=10 +--line-up-parentheses +--maximum-line-length=67 +--weld-nested-containers + +==> b751.in <== +# State 1 + unless ( + ($genefeatureshash) + && ( scalar + ( @{ $genefeatureshash->{'genefeatures'} } ) ) + ) +# State 2 + unless ( + ($genefeatureshash) + && ( + scalar( + @{ + $genefeatureshash + ->{ +'genefeatures' + } + } + ) + ) + ) + +==> b751.par <== +--indent-columns=10 +--maximum-line-length=67 +--weld-nested-containers + +==> b752.in <== +# S1 +my$cmb=CPAN::Mirrored::By->new({ + continent=>"continent", + country=>"country", + http=>"http", + ftp=>"ftp", +}); + +# S2 +my$cmb= + CPAN::Mirrored::By->new( + { + continent=>"continent", + country=>"country", + http=>"http", + ftp=>"ftp", + } + ); + +==> b752.par <== +--noadd-whitespace +--line-up-parentheses +--maximum-line-length=33 +--weld-nested-containers + +==> b753.in <== +# S1 +my $parser = + TAP::Parser->new( + { + iterator => $iterator, + callbacks => \%callbacks, + } + ); + +# S2 +my $parser = TAP::Parser->new( { + iterator => $iterator, + callbacks => \%callbacks, +} ); + + +==> b753.par <== +--line-up-parentheses +--maximum-line-length=33 +--weld-nested-containers + +==> b756.in <== +# s1 + if ( + !utf8::is_utf8( + $tab + -> + {lib} + ) + ) +# S2 + if + ( !utf8::is_utf8( + $tab + ->{lib} + ) ) + +==> b756.par <== +--brace-left-and-indent +--continuation-indentation=8 +--extended-continuation-indentation +--indent-columns=8 +--maximum-line-length=41 +--weld-nested-containers + +==> b760.in <== +# State 1 + + while ( + ( + my $tagfield, + my $tagsubfield, + my $liblibrarian, + my $kohafield + ) + = $sth->fetchrow + ) + +# State 2 + + while ( + ( + my $tagfield, + my $tagsubfield, + my $liblibrarian, + my $kohafield + ) + = $sth->fetchrow + ) + +==> b760.par <== +--ignore-old-breakpoints +--keyword-group-blanks-before=2 +--keyword-group-blanks-size='4' +--maximum-consecutive-blank-lines=0 +--maximum-line-length=43 + +==> b765.in <== +# state 1 +foreach + my $name + ( param $query) + +__END__ + +# state 2 +foreach + my $name + ( + param $query) + + +==> b765.par <== +--continuation-indentation=10 +--delete-old-whitespace +--extended-continuation-indentation +--maximum-line-length=9 +--paren-vertical-tightness=2 + +==> b775.in <== + my @files = @ARGV = + ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + + my @files = @ARGV = ( + File::Spec->catfile( 'ecmddir', $Testfile ), + File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) + ); + + my @files = @ARGV = ( + File::Spec->catfile( + 'ecmddir', $Testfile + ), + File::Spec->catfile( + 'ecmddir', 'temp2', + $Testfile + ) + ); + + my @files = @ARGV = + ( + File::Spec->catfile( + 'ecmddir', $Testfile + ), + File::Spec->catfile( + 'ecmddir', 'temp2', + $Testfile + ) + ); + +==> b775.par <== +--break-before-paren=2 +--line-up-parentheses +--maximum-line-length=62 + +==> b777.in <== +# state 1 +for ( + reverse + map { + $_ + } @array + ) { + $r.= $_ ; + } + +# state 2 + +for ( + reverse + map { $_ } + @array + ) +{ + $r .= $_; +} + +==> b777.par <== +--line-up-parentheses +--maximum-line-length=14 + +==> b778.in <== +# S1 + my $smallest + = ( + sort + { ( ( + @q # + ) + ) + } + ); + +# s2 + my $smallest + = ( + sort { + ( + ( + @q # + ) + ) + } + ); + +==> b778.par <== +--maximum-line-length=14 +--norecombine +--stack-opening-paren + +==> b779.in <== + $_[0]->end_code( + pop( + @{ + $_[0] + ->{'in_code'} + } + ) + ); + + $_[0]->end_code(pop + (@{$_[0]->{'in_code'}})); + + +==> b779.par <== +--noadd-whitespace +--ignore-old-breakpoints +--maximum-line-length=33 +--weld-nested-containers + +==> b780.in <== +for my $index( + GZIP_MIN_HEADER_SIZE.. + GZIP_MIN_HEADER_SIZE+ + length( + $Name)- + 1) + +__END__ +for my $index( + GZIP_MIN_HEADER_SIZE.. + GZIP_MIN_HEADER_SIZE + +length( + $Name)- + 1) + + +==> b780.par <== +--noadd-whitespace +--break-before-all-operators +--maximum-line-length=33 + +==> b787.in <== +# State 1: the +GZIP is parsed as type p +for my $index ( GZIP_MIN_HEADER_SIZE + +1 .. GZIP_MIN_HEADER_SIZE + -GZIP_FEXTRA_HEADER_SIZE + +1 ) + +__END__ + +# State 2: all are type + +for my $index ( GZIP_MIN_HEADER_SIZE + +1 .. GZIP_MIN_HEADER_SIZE + + GZIP_FEXTRA_HEADER_SIZE + +1 ) + +==> b787.par <== +--maximum-line-length=46 +--break-before-all-operators +--nowant-right-space='+' # This is the problem + +#--nowant-right-space='!~ &&= ||= |= -= <<= =~ - != !~ >= + | *= %= <<= %' + +==> b789.in <== + my $wd = + ( + $self->splitpath( Cwd::getcwd(), 1 ) + )[1]; + + my $wd = ( + $self->splitpath( Cwd::getcwd(), 1 + ) )[1]; + +==> b789.par <== +--break-before-paren=2 +--continuation-indentation=7 +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=63 +--paren-vertical-tightness-closing=2 + +==> b826.in <== +# State 1 + @tic_intervals = ( + [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + +# State 2 + @tic_intervals = ( [ + 'DECADE', SECONDS_IN_YEAR, + 10, 'y' + ], + [ + 'HALFDECADE', SECONDS_IN_YEAR, + 5, 'y' + ], + [ + 'YEAR', SECONDS_IN_YEAR, + 1, 'y' + ], + ); + +# State 3 + @tic_intervals = ( [ + 'DECADE', SECONDS_IN_YEAR, + 10, 'y' + ], + [ + 'HALFDECADE', SECONDS_IN_YEAR, + 5, 'y' + ], + [ + 'YEAR', SECONDS_IN_YEAR, + 1, 'y' + ], + ); + +# State 4 + @tic_intervals = + ( [ + 'DECADE', SECONDS_IN_YEAR, + 10, 'y' + ], + [ + 'HALFDECADE', SECONDS_IN_YEAR, + 5, 'y' + ], + [ + 'YEAR', SECONDS_IN_YEAR, + 1, 'y' + ], + ); + +# State 5 + @tic_intervals = + ( [ 'DECADE', SECONDS_IN_YEAR, 10, 'y' ], + [ 'HALFDECADE', SECONDS_IN_YEAR, 5, 'y' ], + [ 'YEAR', SECONDS_IN_YEAR, 1, 'y' ], + ); + + +==> b826.par <== +--break-before-paren=2 +--line-up-parentheses +--maximum-line-length=57 +--paren-vertical-tightness=2 + +==> b860.in <== +# Alternately deleting blank after the =cut + +#!/usr/bin/perl -w + +=head1 NAME + +Net::ICal::Recurrence -- Represent a single recurrence rule + +=cut + +package Net::ICal::Recurrence; + + +==> b860.par <== +--keep-old-blank-lines=0 + +==> b862.in <== +# State 1 +sub _tz_dow { +return $oDoW[ + ( localtime( + $time + ->as_int + ) + )[6] + ]; +} + +# State 2 (changed sub name to avoid perltidy complaint) +sub _tz_doW { +return $oDoW[( localtime( + $time + ->as_int + ) ) + [6] + ]; +} + +==> b862.par <== +--continuation-indentation=9 +--maximum-line-length=22 +--outdent-keywords +--paren-vertical-tightness=2 +--square-bracket-vertical-tightness=2 +--stack-opening-paren +--weld-nested-containers +--variable-maximum-line-length + +==> b866.in <== +# S1 +if ( open( MAGIC, + ">$magic" ) ) + +__END__ +# S2 +if + ( open +( MAGIC, ">$magic" ) ) + +__END__ + + +==> b866.par <== +--noadd-semicolons +--blank-lines-after-opening-block=2 +--blank-lines-before-closing-block=0 +--blank-lines-before-packages=3 +--blank-lines-before-subs=0 +--noblanks-before-comments +--block-brace-tightness=1 +--block-brace-vertical-tightness=1 +--brace-left-and-indent +--brace-tightness=0 +--brace-vertical-tightness-closing=1 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +#--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +#--break-at-old-method-breakpoints +#--break-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--break-before-paren-and-indent=1 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--closing-brace-indentation=2 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=50 +--closing-side-comment-maximum-text=34 +--noclosing-side-comment-warnings +--closing-side-comments +--closing-token-indentation=1 +--comma-arrow-breakpoints=4 +--continuation-indentation=9 +--nocuddled-block-list-exclusive +--cuddled-break-option=14 +--default-tabsize=7 +--nodelete-block-comments +--delete-closing-side-comments +--delete-old-whitespace +--nodelete-side-comments +#--entab-leading-whitespace=1 +--noextended-syntax +--fixed-position-side-comment=8 +--nofuzzy-line-length +--ignore-old-breakpoints +--ignore-side-comment-lengths +--indent-closing-brace +--indent-columns=8 +--noindent-spaced-block-comments +##--iterations=93 +--nokeep-interior-semicolons +--keep-old-blank-lines=70 +#--keep-old-breakpoints-after='subaru' +#--keep-old-breakpoints-before='train' +--keyword-group-blanks-before=2 +--keyword-group-blanks-repeat-count=43 +--keyword-group-blanks-size='7' +--keyword-paren-inner-tightness=0 +--noline-up-parentheses +--long-block-line-count=91 +--nolook-for-selfloader +--maximum-consecutive-blank-lines=4 +--maximum-fields-per-table=68 +--maximum-file-size-mb=78 +--maximum-level-errors=53 +--maximum-line-length=22 +--maximum-unexpected-errors=6 +--nospace-after-keyword='do local if our' +--nowant-left-space='**= == ^= - += |= //= -= - < &= ^= >>= ^= -= =~ ||=' +--nowant-right-space='*= >= .= > < <<= < <<= -= += = ||= += x //= |= /' +--one-line-block-nesting=55 +--one-line-block-semicolons=96 +--noopening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--opening-hash-brace-right +--opening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-quotes +--nooutdent-static-block-comments +--paren-vertical-tightness=2 +--nopass-version-line +--norecombine +--short-concatenation-item-length=25 +--space-after-keyword='my if while my' +--space-function-paren +--nospace-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=2 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tight-secret-operators +--notrim-pod +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 +--want-break-after='&= !~ !~ &= *= | .= !~ &&= &&= / *= % * >= * *' +--want-break-before='.= + < !~ ^= &= != //= !~ &&= * |= x= <= += !~ !=' +--want-left-space='> += //= *= * |= .= - >>= <= < = |= >= ^= =~ +=' +--want-right-space='*= + x= //= -= /= >= = != > < - != .= |= x -' +--weld-nested-containers +--whitespace-cycle=12 + +==> b872.in <== +# S1 +foreach my $key + (sort +(keys( + %{ + $self->[ + $level] + } + ))) + +__END__ + +# S2 +foreach my $key + (sort ( + keys( + %{ + $self->[ + $level] + } + ) + )) + + +==> b872.par <== +--noadd-whitespace +--blank-lines-after-opening-block=0 +--blank-lines-before-closing-block=1 +--blank-lines-before-packages=0 +--block-brace-tightness=2 +--brace-tightness=2 +--brace-vertical-tightness-closing=2 +--brace-vertical-tightness=1 +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +#--break-at-old-comma-breakpoints +--nobreak-at-old-logical-breakpoints +--nobreak-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--break-before-paren-and-indent=2 +--break-before-paren=1 +--break-before-square-bracket-and-indent=1 +--closing-brace-indentation=3 +--closing-paren-indentation=1 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=65 +--closing-side-comment-maximum-text=22 +--closing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=2 +--closing-token-indentation=3 +--continuation-indentation=8 +--cuddled-block-list-exclusive +--cuddled-break-option=48 +--default-tabsize=5 +--delete-block-comments +--delete-closing-side-comments +--delete-side-comments +--entab-leading-whitespace=4 +--noextended-syntax +--fixed-position-side-comment=99 +--noformat-skipping +--nofuzzy-line-length +--ignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-closing-brace +--indent-columns=0 +--indent-spaced-block-comments +##--iterations=61 +--keep-interior-semicolons +--keep-old-blank-lines=82 +#--keep-old-breakpoints-after='train' +#--keep-old-breakpoints-before='subaru' +--keyword-group-blanks-after=2 +--keyword-group-blanks-before=2 +--keyword-group-blanks-delete +--keyword-group-blanks-inside +--keyword-group-blanks-repeat-count=60 +--keyword-group-blanks-size='1.8' +--keyword-paren-inner-tightness=2 +--line-up-parentheses +--long-block-line-count=41 +--nolook-for-autoloader +--nolook-for-selfloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=85 +--maximum-file-size-mb=27 +--maximum-level-errors=58 +--maximum-line-length=16 +--maximum-unexpected-errors=23 +--nomemoize +--nospace-after-keyword='34 garbage1 my while' +--nowant-left-space='*= & //= < *= += != %= * ^= % != < = /= -= >=' +--nowant-right-space='| %= &&= * -= /= <<= .= <= | > | ^= **= **= + |=' +--one-line-block-nesting=68 +--one-line-block-semicolons=98 +--noopening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-labels +--nooutdent-long-comments +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-vertical-tightness-closing=1 +--short-concatenation-item-length=53 +--space-after-keyword='do 34 while while' +--space-backslash-quote=0 +--nospace-for-semicolon +--space-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--stack-opening-square-bracket +--tight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 +--want-break-after='| !~ & x //= % == = <<= += *= == | * > |= //=' +--want-break-before='> =~ =~ != = -= &= | - x & != .= -= >= % !~' +--want-left-space='>>= //= *= &= /= x - !~ & += > > &= <= == <<= |=' +--want-right-space='!~ ^= %= | ||= %= !~ *= x= >>= /= < != &= /= | |' +--weld-nested-containers +#--whitespace-cycle=44 + +==> b878.in <== +# Stage 1 + my$data=pack( + "vvvvvC" + ,$colFirst + ,$colLast + ,$coldx + , + $ixfe, + $grbit, + $reserved + ); + +# Stage 2 + my$data=pack( + "vvvvvC", + $colFirst, + $colLast + ,$coldx + , + $ixfe, + $grbit, + $reserved + ); + +# Stage 3 + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx + , + $ixfe, + $grbit, + $reserved + ); + +# Stage 4 + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + +# Stage 5 = Stage 4 + my$data=pack( + "vvvvvC", + $colFirst, + $colLast, + $coldx, + $ixfe, + $grbit, + $reserved + ); + + +==> b878.par <== +--noadd-whitespace +--blank-lines-after-opening-block=4 +--blank-lines-before-closing-block=1 +--blank-lines-before-subs=2 +--noblanks-before-blocks +--block-brace-tightness=2 +--brace-tightness=0 +--brace-vertical-tightness=2 +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-method-breakpoints +--break-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-paren-and-indent=1 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--closing-brace-indentation=1 +--closing-side-comment-interval=77 +--closing-side-comment-maximum-text=61 +--noclosing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-token-indentation=1 +--comma-arrow-breakpoints=0 +--continuation-indentation=7 +--cuddled-block-list-exclusive +--cuddled-break-option=4 +--cuddled-else +--default-tabsize=7 +--delete-block-comments +--nodelete-closing-side-comments +--delete-side-comments +--entab-leading-whitespace=6 +--noextended-syntax +--fixed-position-side-comment=73 +--noframes +--nofuzzy-line-length +--nohanging-side-comments +--noignore-old-breakpoints +--noignore-side-comment-lengths +--indent-closing-brace +--indent-columns=8 +--indent-spaced-block-comments +--nokeep-interior-semicolons +--keep-old-blank-lines=39 +--keep-old-breakpoints-after='1x' +--keep-old-breakpoints-before='!' +--keyword-group-blanks-inside +--keyword-group-blanks-repeat-count=59 +--keyword-group-blanks-size='2.8' +--line-up-parentheses +--nological-padding +--long-block-line-count=20 +--nolook-for-selfloader +--maximum-fields-per-table=30 +--maximum-file-size-mb=42 +--maximum-level-errors=100 +--maximum-line-length=23 +--maximum-unexpected-errors=65 +--nomemoize +--minimum-space-to-comment=9 +--nonon-indenting-braces +--nospace-after-keyword='my garbage1 do my' +--nowant-left-space='!= <= | & == .= |= / &= ||= %= / x |= /= /= .=' +--nowant-right-space='|= += .= |= | =~ =~ - + x / &&= |= .= .= <= ==' +--one-line-block-nesting=3 +--one-line-block-semicolons=51 +--opening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--opening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-labels +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=2 +--nopass-version-line +--short-concatenation-item-length=98 +--space-after-keyword='local do local while' +--space-backslash-quote=2 +--nospace-for-semicolon +--space-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--notight-secret-operators +--notrim-pod +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=0 +--want-break-after='& ||= > > >= < -= != ^= & | &&= != <<= | & !=' +--want-break-before='%= - + = **= = * -= -= ||= < <<= .= ||= & &= **=' +--want-left-space='% + == x * > .= | /= <= x < <= | %= * <=' +--want-right-space='!= = * == >>= - //= //= *= &&= /= != |= /= >>= -= +' +#--whitespace-cycle=37 + +==> b899.in <== +explain + { + 1 + => + 1 + } ; + +explain + { + 1 + => + 1 + } ; + +==> b899.par <== +# problem is -xci when -ci>-l +--indent-columns=5 +--continuation-indentation=10 +--maximum-line-length=8 +--extended-continuation-indentation +--variable-maximum-line-length + +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +#--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-logical-breakpoints +#--break-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=3 +--break-before-paren-and-indent=2 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=1 +--closing-brace-indentation=1 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=1 +--closing-side-comment-maximum-text=37 +--closing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=3 +--closing-token-indentation=2 +#--comma-arrow-breakpoints=2 +--cuddled-block-list-exclusive +--cuddled-break-option=22 +--cuddled-else +--default-tabsize=1 +--nodelete-block-comments +--nodelete-closing-side-comments +--delete-old-whitespace +--nodelete-semicolons +--nodelete-side-comments +--entab-leading-whitespace=8 +--noextended-syntax +--fixed-position-side-comment=31 +--noformat-skipping +--nofuzzy-line-length +--ignore-old-breakpoints +--noignore-side-comment-lengths +--indent-closing-brace +--indent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=7 +#--keep-old-breakpoints-after='1x' +#--keep-old-breakpoints-before='sub' +--keyword-group-blanks-before=0 +--keyword-group-blanks-delete +--keyword-group-blanks-inside +--keyword-group-blanks-repeat-count=59 +--keyword-group-blanks-size='4' +--keyword-paren-inner-tightness=0 +--noline-up-parentheses +--nological-padding +--long-block-line-count=48 +--nolook-for-selfloader +--maximum-consecutive-blank-lines=3 +--maximum-fields-per-table=14 +--maximum-file-size-mb=80 +--maximum-level-errors=75 +--maximum-unexpected-errors=23 +--minimum-space-to-comment=6 +--nonon-indenting-braces +--nospace-after-keyword='while do our do' +--nowant-left-space='<<= %= < *= ||= x >>= /= /= * &= >>= - > x & ==' +--nowant-right-space='x= >>= !~ &&= *= &= + / &&= += += - >= <<= / //= %=' +--one-line-block-nesting=28 +--one-line-block-semicolons=86 +--opening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-static-block-comments +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=2 +--nopass-version-line +--norecombine +--short-concatenation-item-length=10 +--show-options +--space-after-keyword='my do local garbage1' +--nospace-for-semicolon +--nospace-function-paren +--nospace-keyword-paren +--space-prototype-paren=2 +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tight-secret-operators +--notrim-pod +--use-unicode-gcstring +--novalign +--vertical-tightness-closing=1 +--vertical-tightness=0 + +==> b900.in <== +${ nucleic { + $seq_name + } + -> + { +'seq' + } + } + = $_; + +# State 2 +${ + nucleic + { + $seq_name + } + -> + { +'seq' + } + } + = $_; + + +==> b900.par <== +--continuation-indentation=10 +--extended-continuation-indentation +--maximum-line-length=14 + +==> b901.in <== +# State 1 +@tagged_texts= walk_html( $tree, + sub + { [ 'MAYBE', $_[ 0 ] ] }, + \&promote_if_h1tag +); + +# State 2 +@tagged_texts= walk_html( $tree, + sub { [ + 'MAYBE', $_[ 0 ] ] }, + \&promote_if_h1tag +); + +==> b901.par <== +--continuation-indentation=9 +--line-up-parentheses +--maximum-line-length=51 +--opening-anonymous-sub-brace-on-new-line +--square-bracket-tightness=0 +--weld-nested-containers + +==> b903.in <== +# State 1 + @items[ $j + + 1 .. $#items + ] = + reverse + @items[ $j + + 1 .. $#items + ]; + +# State 2 + @items[ $j + + 1 .. $#items + ] + = reverse + @items[ $j + + 1 .. $#items + ]; + + +==> b903.par <== +--continuation-indentation=4 +--indent-columns=3 +--maximum-line-length=23 +#--want-break-after='=' +#--want-break-before='=' + +--want-break-after='!~ |= = //= = + >= | !~ > .= .= + ^= ^= **= <' +--want-break-before='& > | =~ <= <<= -= - % >= != /= -= > = /= &' + +==> b904.in <== +# State 1 + if + ( -t) + +__END__ + +# State 2 + if + ( + -t) + +==> b904.par <== +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=2 +--paren-vertical-tightness=2 + +==> b905.in <== +# state 1 + printf + gettext + ( + <<'EOF'), $progname; +Usage: %s [options] [changelog entry] +EOF + +# state 2 + + printf + gettext + ( <<'EOF'), $progname; +Usage: %s [options] [changelog entry] +EOF + + +==> b905.par <== +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=2 +--paren-vertical-tightness=2 + +==> b908.in <== +@spec = + ( + [ 'stdout', *OUT, \$out ], + [ 'stderr', *ERR, \$err ] + ); + +@spec = + ( + [ + 'stdout', *OUT, + \$out + ], + [ + 'stderr', *ERR, + \$err + ] + ); + + +==> b908.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--extended-continuation-indentation +--ignore-old-breakpoints +--maximum-line-length=26 +--variable-maximum-line-length + +==> b909.in <== +# State 1 + $args{extra_linker_flags}=[ + File::Spec->catfile($self->perl_inc(),$lib + ), + $self->split_like_shell( + $args{extra_linker_flags} + )]; + +# State 2 + $args{extra_linker_flags}=[ + File::Spec->catfile( $self->perl_inc(),$lib ), + $self->split_like_shell( $args{extra_linker_flags})]; + +# State 3 + $args{extra_linker_flags}=[ + File::Spec->catfile( + $self->perl_inc(),$lib + ), + $self->split_like_shell( + $args{extra_linker_flags} + ) + ]; + +==> b909.par <== +--noadd-whitespace +--break-before-square-bracket=2 +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=78 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=74 +--space-after-keyword='if local do do' +--space-backslash-quote=0 +--space-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--notight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 + +==> b911.in <== +# State 1 +my$test= +(semctl(-1,0,0,0)) + [0]; + +# state 2 +my$test=( +semctl( +-1,0,0,0 +) +)[0]; + + +==> b911.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=0 +--maximum-line-length=18 + +==> b912.in <== +# State 1 + + my @binary_by_priority + = sort + { + ( + $Override{ + $a} + ? $Priority{ + $Override{ + $a}[ + O_PRIORITY + ] + } + : 0 + ) + <=> ( + $Override{ + $b} + ? $Priority{ + $Override{ + $b}[ + O_PRIORITY + ] + } + : 0 + ) + } @binary; + +# State 2 + + my @binary_by_priority + = sort + { ( + $Override{ + $a} + ? $Priority{ + $Override{ + $a}[ + O_PRIORITY + ] + } + : 0 + ) + <=> ( + $Override{ + $b} + ? $Priority{ + $Override{ + $b}[ + O_PRIORITY + ] + } + : 0 + ) + } @binary; + + +==> b912.par <== +--continuation-indentation=4 +--maximum-line-length=10 +--stack-opening-paren +--variable-maximum-line-length + +==> b913.in <== +# State 1 + elsif + ( -t) + +__END__ +# State 2 + elsif + ( + -t) + +==> b913.par <== +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=2 +--paren-vertical-tightness=2 + +==> b917.in <== +# State 1 + print + BODY + &q + ( + <<'EOT'); +: while ($ARGV[0] =~ /^-/) { +EOT + +# State 2 + print + BODY + &q + ( <<'EOT'); +: while ($ARGV[0] =~ /^-/) { +EOT + +==> b917.par <== +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=2 +--paren-vertical-tightness=2 + +==> b923.in <== +# State 1 +my %nodecount = + + ( + 'attribute' => 0, + 'CDMS' => 0, + 'comment' => 0, + 'element' => 0, + 'PI' => 0, + 'text' => 0, + ); + +# State 2 + +my %nodecount = + + ( 'attribute' => 0, 'CDMS' => 0, 'comment' => 0, 'element' => 0, 'PI' => 0, 'text' => 0, ); + +==> b923.par <== +--break-before-paren-and-indent=2 +--break-before-paren=1 +--comma-arrow-breakpoints=2 +--continuation-indentation=9 +--maximum-line-length=95 + +==> b924.in <== +foreach my $p( + sort{lc($a)cmp lc($b)} + keys%v + ) + +__END__ + +foreach my $p( + sort{lc($a)cmp lc($b)} + keys%v + ) + +==> b924.par <== +--noadd-whitespace +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=30 + +==> b926.in <== +my@str1= +( +substr($strD,0,3), +substr($strD,3,4), +); + +# state 2 +my@str1=( +substr( +$strD,0,3 +), +substr( +$strD,3,4 +), +); + +==> b926.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=0 +--maximum-line-length=18 + +==> b928.in <== +# State 1 +${ + nucleic + { + $seq_name + } + { + 'seq' + } + } = + $_; + +# State 2 + +${ nucleic { + $seq_name + } + { + 'seq' + } + } = + $_; + + +==> b928.par <== +--continuation-indentation=10 +--extended-continuation-indentation +--maximum-line-length=14 +--variable-maximum-line-length + +==> b929.in <== +# State 1: note that RELEASE_FILES is parsed as type G +#2: @{ +#2: tL +#3: ${ RELEASE_FILES { +#3: tLbGGGGGGGGGGGGGb{ + foreach my ${DISTRO}( + @{ + ${ RELEASE_FILES { + $OS + } + } + } + ) + +# State 2: note that RELEASE_FILES is parsed as type w +#2: @{ +#2: tL +#3: ${ +#3: tL +#4: RELEASE_FILES +#4: wwwwwwwwwwwww + foreach my ${DISTRO}( + @{ + ${ + RELEASE_FILES + { + $OS + } + } + } + ) + +==> b929.par <== +--indent-columns=9 +--maximum-line-length=55 + +==> b930.in <== +# State 1 +$out .=StripHTML( $a, $pre, $indent, $leftovers ) + . "\n" . $$indent; + +# State 2 +$out + .=StripHTML( $a, $pre, $indent, + $leftovers ) . + "\n" . $$indent; + + +==> b930.par <== +--break-after-all-operators +--continuation-indentation=9 +--line-up-parentheses +--maximum-line-length=51 +--nowant-right-space='&&= !~ &&= += .= <<= %= >= / =~ |= *= %= == |= | &=' +--want-break-before='+ ^= | >= &&= //= / += < !~ &&= /= .= = >>= & /=' + +--variable-maximum-line-length + +==> b931.in <== +# State 1 + +print SAVEOUT ( $? & 127 ) ? + " (SIG#" . ( $? & 127 ) . ")" : + "", + ( $? & 128 ) ? " -- core dumped" : "", + "\n"; + +# State 2 + +print SAVEOUT ( $? & 127 ) ? + " (SIG#" . ( $? & 127 ) . ")" : "", + ( $? & 128 ) ? " -- core dumped" : "", + "\n"; + +==> b931.par <== +--break-after-all-operators +--nobreak-at-old-ternary-breakpoints +--maximum-line-length=51 +--variable-maximum-line-length + +==> b932.in <== +# s1 +my @parts = decompose( '(\s+|/|\!|=)', + $line, undef, 1, undef, '["\']' ); + +# S2 +my @parts + = decompose( '(\s+|/|\!|=)', + $line, undef, 1, undef, + '["\']' ); + + +==> b932.par <== +--line-up-parentheses +--maximum-line-length=51 +--want-break-before='=' + +==> b933.in <== +# s1 + $tmp + = &DateCalc_DateDelta( $date1, + "+$dy:0:0:0:0:0:0", \$err, + 0 ); + +# s2 + $tmp= &DateCalc_DateDelta( $date1, + "+$dy:0:0:0:0:0:0", \$err, 0 ); + + +==> b933.par <== +--line-up-parentheses +--maximum-line-length=51 +--nowant-left-space='= + x= >= //= ^= >>= < & -= &= - ||= == //= //= <' +--variable-maximum-line-length +--want-break-before='+ ^= | >= &&= //= / += < !~ &&= /= .= = >>= & /=' + +==> b934.in <== +#4: pi () +#4: CCb{} + sub pi(); + + if ( + $t > + pi () + ) + + if ( + $t > + pi( ) + ) + +==> b934.par <== +--continuation-indentation=6 +--maximum-line-length=17 +--paren-vertical-tightness-closing=2 + +==> b935.in <== + @a = + multicall_return + { +"one", +"two" + } $gimme; + + @a = + multicall_return + { + "one", +"two" + } + $gimme; + +==> b935.par <== +# problem is -xci when ci>-l +--continuation-indentation=10 +--extended-continuation-indentation +--nofuzzy-line-length +--ignore-old-breakpoints +--maximum-line-length=8 +--opening-brace-always-on-right +--variable-maximum-line-length + +==> b936.in <== +# S1 +foreach my $x ( + sort{lc($a)cmp lc($b)} + keys %INC + ) + +__END__ + +# S2 +foreach my $x ( + sort{ + lc($a)cmp + lc($b) + } + keys %INC + ) + + +==> b936.par <== +--noadd-whitespace +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=30 + +==> b938.in <== +# S1: this is broken on input + $features->{$name}={ + description=>$origin->{$name}{description}, + prereqs=> + _prereqs_from_1( + undef,undef,$origin->{$name} + ),}; + +# S2 : This is not broken + $features->{$name}= + { description=>$origin->{$name}{description}, + prereqs=> + _prereqs_from_1(undef,undef,$origin->{$name} ), + }; + +==> b938.par <== +--noadd-whitespace +--break-before-hash-brace=2 +--delete-old-whitespace +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=78 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=74 +--space-after-keyword='if local do do' +--space-backslash-quote=0 +--space-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--notight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 + +==> b939.in <== +# State 1 + if ( + not( -S $syslog_path + or -c _) + ) + { + return 0; + } + +# State 2 + if (not(-S $syslog_path or -c _)) { + return 0; + } + +==> b939.par <== +--comma-arrow-breakpoints=2 # Why does this have any effect?? +--continuation-indentation=8 +--extended-continuation-indentation +--indent-columns=6 +--maximum-line-length=47 +--paren-tightness=2 + +==> b940.in <== +# S1 + +my@todo= +([$top,\@lines]); + +# S2 +my@todo=( +[ +$top,\@lines +] +); + + +==> b940.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=0 +--maximum-line-length=18 + +==> b941.in <== +# S1 + +($a,$q,$b)=( +$b, +$c->_div( +$a,$b +) +);# step 1 + +# S2 +($a,$q,$b)= +( +$b,$c->_div($a,$b) +);# step 1 + +==> b941.par <== +--noadd-whitespace +--break-before-paren-and-indent=2 +--break-before-paren=2 +--extended-continuation-indentation +--indent-columns=0 +--maximum-line-length=18 + +==> b943.in <== + @aa = + $self + ->_rearrange + ( [qw(EXPECT + BITS + FRAC + SEQDESC + SEQLENGTH + )], + @args + ); + + @aa = + $self + ->_rearrange + ( + [ qw(EXPECT + BITS + FRAC + SEQDESC + SEQLENGTH + ) + ], + @args + ); + +==> b943.par <== +--maximum-line-length=12 +--short-concatenation-item-length=66 +--show-options +--space-after-keyword='while our 34 while' +--space-backslash-quote=2 +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--tight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=2 +--weld-nested-containers + +==> b945.in <== +# State 1 +if ( + $printmask[ + $linen++ ]) +{ } + +# State 2 +if ($printmask[ +$linen++ ]) +{ } + +# State 3 +if ($printmask +[ $linen++ ]) +{ } + + +==> b945.par <== +--blank-lines-after-opening-block=4 +--blank-lines-before-closing-block=1 +--blank-lines-before-subs=2 +--noblanks-before-blocks +--noblanks-before-comments +--block-brace-vertical-tightness=1 +--brace-tightness=2 +--brace-vertical-tightness-closing=1 +--brace-vertical-tightness=2 +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-logical-breakpoints +--nobreak-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--break-before-all-operators +--break-before-hash-brace=2 +--break-before-paren-and-indent=1 +--break-before-paren=2 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--check-syntax +--closing-brace-indentation=2 +--closing-paren-indentation=2 +--closing-side-comment-interval=51 +--closing-side-comment-maximum-text=51 +--closing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=3 +--closing-token-indentation=2 +--comma-arrow-breakpoints=2 +--continuation-indentation=7 +--nocuddled-block-list-exclusive +--cuddled-break-option=94 +--cuddled-else +--default-tabsize=2 +--nodelete-block-comments +--delete-closing-side-comments +--delete-old-whitespace +--nodelete-semicolons +--delete-side-comments +--entab-leading-whitespace=6 +--fixed-position-side-comment=92 +--nohanging-side-comments +--noignore-old-breakpoints +--ignore-side-comment-lengths +--indent-closing-brace +--indent-spaced-block-comments +##--iterations=93 +--nokeep-interior-semicolons +--keep-old-blank-lines=37 +--keep-old-breakpoints-after='sub' +--keep-old-breakpoints-before='=+' +--keyword-group-blanks-after=2 +--keyword-group-blanks-before=0 +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=42 +--keyword-group-blanks-size='4' +--keyword-paren-inner-tightness=2 +--noline-up-parentheses +--nological-padding +--long-block-line-count=51 +--nolook-for-autoloader +--nolook-for-selfloader +--maximum-fields-per-table=88 +--maximum-file-size-mb=19 +--maximum-level-errors=96 +#--maximum-line-length=32 +--maximum-line-length=16 +--maximum-unexpected-errors=48 +--nomemoize +--minimum-space-to-comment=5 +--nonon-indenting-braces +--nospace-after-keyword='34 do do do' +--nowant-left-space='< |= .= = ^= + **= x ^= -= != =~ >= ||= = x !~' +--nowant-right-space='-= >>= |= < != ||= /= -= + /= %= | != //= x = .=' +--one-line-block-nesting=9 +--one-line-block-semicolons=8 +--opening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--noopening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--opening-square-bracket-right +--noopening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-tightness=0 +--paren-vertical-tightness=1 +--nopass-version-line +--short-concatenation-item-length=81 +--space-after-keyword='our do our my' +--space-backslash-quote=0 +--nospace-for-semicolon +--nospace-function-paren +--space-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=2 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--tabs +--tight-secret-operators +--trim-pod +--notrim-qw +--use-unicode-gcstring +--novariable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=1 +--want-break-after='+= &= x= += <<= &= x= + == * > & < ^= !~ = -=' +--want-break-before='>>= | - + | + .= & <<= |= & & //= == != - +' +--want-left-space='> *= = / | /= <<= .= == <<= &= | =~ /= - >>= <<=' +--want-right-space='*= = <= &= = &&= == != **= * <= >= //= ^= |= <<= >' +--weld-nested-containers +--whitespace-cycle=4 + +==> b946.in <== +if ($optf) { + ($comp) = + (split ' ', $comp, $optf +1) + [$optf]; +} + + +==> b946.par <== +--break-before-paren-and-indent=2 +--break-before-paren=2 +--maximum-line-length=31 +--nowant-right-space='=~ >>= ||= %= >>= - | /= //= + - |= !~ <= = ||= =~' +--paren-tightness=2 +--variable-maximum-line-length + +==> b947.in <== +push @ARGV2 => + [ $dir, $intermediate++ ]; + + +==> b947.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=1 +--indent-columns=9 +--maximum-line-length=31 +--square-bracket-vertical-tightness-closing=1 +--variable-maximum-line-length + +==> b948.in <== +my ( + $who, + $op, + $perm + ) + = ( + 0, '', 0 + ); + +==> b948.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--maximum-line-length=12 +--opening-brace-always-on-right ## STRANGE! + +==> b949.in <== +push @{ $remember{ $operator } + } => + [ + $left, $right, $answer ]; + +__END__ +push @{ $remember{ $operator } + } => + [ $left, $right, $answer ]; + +==> b949.par <== +--brace-tightness=0 +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=1 +--indent-columns=9 +--maximum-line-length=31 +--square-bracket-vertical-tightness-closing=1 +--variable-maximum-line-length + +==> b950.in <== +{ + { + ( + $mode, + $filename + ) + = + ( + $1, + $2 + ) + ; + } +} + +==> b950.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=10 +--maximum-line-length=16 +--opening-brace-always-on-right + +==> b951.in <== +{ + { + ( + $mode, + $filename + ) + = ( + $1, $2 ); + } +} + + +==> b951.par <== +--break-before-paren-and-indent=1 +--break-before-paren=2 +--continuation-indentation=10 +--maximum-line-length=24 +--opening-brace-always-on-right + +==> b952.in <== +my %so = ( + 'A' => 1, + 'J' => 11, + 'Q' => 12, + 'K' => 13 +); + +==> b952.par <== +--break-before-all-operators +--break-before-paren-and-indent=1 +--break-before-paren=1 +--ignore-old-breakpoints +--maximum-line-length=46 +--weld-nested-containers + +==> b953.in <== +# State 1 +*$self={%opts,lines=>[],scrap=>'',EOF=>0, + count=>0,ends=>[],}; + +# State 2 +*$self={ + %opts,lines=>[],scrap=>'',EOF=>0, + count=>0,ends=>[], +}; + +==> b953.par <== +--noadd-whitespace +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=1 +--comma-arrow-breakpoints=3 +--maximum-line-length=53 +--variable-maximum-line-length + +==> b954.in <== +# State 1 +*$self = { +%opts, +lines => [], +scrap => '', +EOF => 0, +count => 0, +ends => [], +}; + +# State 2 +*$self = { %opts, lines => [], scrap => '', EOF => 0, count => 0, +ends => [], }; +__END__ + +*$self = { +%opts, +lines => [], +scrap => '', +EOF => 0, +count => 0, +ends => [], +}; + + +==> b954.par <== +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=1 +--ignore-old-breakpoints +--indent-columns=0 +--maximum-line-length=71 + +==> b956.in <== +my ( $template, $loggedinuser, $cookie ) + =get_template_and_user ( + { template_name => "parameters/stopwords.tmpl", + query => $input, + type => "intranet", + flagsrequired => + { parameters => 1, management => 1 }, + authnotrequired => 0, + debug => 1, } ); + + +==> b956.par <== +--noadd-semicolons +--blank-lines-after-opening-block=2 +--blank-lines-before-closing-block=3 +--noblanks-before-blocks +--block-brace-tightness=1 +--block-brace-vertical-tightness=2 +--brace-left-and-indent +--brace-vertical-tightness-closing=1 +--break-after-all-operators +#--break-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-logical-breakpoints +#--break-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--break-before-paren=3 +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=2 +--closing-paren-indentation=3 +--closing-side-comment-else-flag=2 +--closing-side-comment-interval=58 +--closing-side-comment-maximum-text=10 +--closing-side-comment-warnings +--noclosing-side-comments +--closing-square-bracket-indentation=1 +--closing-token-indentation=0 +--comma-arrow-breakpoints=1 +--continuation-indentation=7 +--cuddled-block-list-exclusive +--cuddled-break-option=3 +--default-tabsize=3 +--delete-block-comments +--delete-closing-side-comments +--nodelete-semicolons +--delete-side-comments +--entab-leading-whitespace=4 +--noextended-syntax +--fixed-position-side-comment=27 +--noformat-skipping +--ignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-closing-brace +--indent-spaced-block-comments +#--iterations=92 +--keep-interior-semicolons +--keep-old-blank-lines=16 +#--keep-old-breakpoints-after='train' +#--keep-old-breakpoints-before='=+' +--keyword-group-blanks-before=2 +--keyword-group-blanks-delete +--keyword-group-blanks-repeat-count=63 +--keyword-group-blanks-size='7' +--keyword-paren-inner-tightness=2 +--noline-up-parentheses +--long-block-line-count=32 +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=13 +--maximum-file-size-mb=88 +--maximum-level-errors=43 +--maximum-line-length=50 +--maximum-unexpected-errors=4 +--minimum-space-to-comment=9 +--nonon-indenting-braces +--nospace-after-keyword='our my while if' +--nowant-left-space='< x= /= &= =~ - |= ^= x= / >= .= **= -= == &= -' +--nowant-right-space='!= != |= == /= x = % < <= == + -= | >>= -= &&=' +--one-line-block-nesting=92 +--one-line-block-semicolons=93 +--noopening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--noopening-brace-on-new-line +--noopening-hash-brace-right +--noopening-paren-right +--opening-square-bracket-right +--noopening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-labels +--nooutdent-long-comments +--nooutdent-static-block-comments +--paren-vertical-tightness-closing=1 +--paren-vertical-tightness=1 +--nopass-version-line +--short-concatenation-item-length=86 +--space-after-keyword='my do garbage1 if' +--space-backslash-quote=2 +--space-function-paren +--space-keyword-paren +--space-prototype-paren=0 +--nospace-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--stack-closing-block-brace +--stack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--tabs +--tight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--variable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=1 +--want-break-after='x **= &&= //= !~ **= .= > //= *= > == += =~ += ||= &=' +--want-break-before='< &= >>= / %= * >= <<= / -= x= ^= <= & > != >>=' +--want-left-space='* *= x &&= .= * * -= + - < |= &&= ||= x= ^= |=' +--want-right-space='//= **= &= < = **= &= %= /= | != %= <<= + ||= >= ==' +--whitespace-cycle=91 + +==> b958.in <== +while (<>) + { + chomp ; + $line=$_ ; + + if ( /\.start/ + or /\.next/ ) + { + ( $keyword, $filename, + $title ) + =trim ( split /\s/, + trim ($line), 3 ) ; + $line + =$keyword + . " " + . $title ; + } + print "$line\n" ; + } + +==> b958.par <== +--blank-lines-after-opening-block=0 +--blank-lines-before-closing-block=0 +--blank-lines-before-packages=3 +--blank-lines-before-subs=3 +--block-brace-tightness=1 +--brace-left-and-indent +--brace-vertical-tightness-closing=1 +--brace-vertical-tightness=1 +--nobreak-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--break-before-all-operators +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--break-before-paren-and-indent=1 +--break-before-paren=1 +--closing-brace-indentation=2 +--closing-paren-indentation=1 +--closing-side-comment-interval=22 +--closing-side-comment-maximum-text=45 +--noclosing-side-comment-warnings +--noclosing-side-comments +--noclosing-side-comments-balanced +--closing-token-indentation=3 +--comma-arrow-breakpoints=3 +--nocuddled-block-list-exclusive +--cuddled-break-option=60 +--default-tabsize=1 +--delete-block-comments +--nodelete-closing-side-comments +--delete-side-comments +--noextended-syntax +--fixed-position-side-comment=51 +--noignore-old-breakpoints +--ignore-side-comment-lengths +--noindent-block-comments +--indent-closing-brace +--indent-columns=1 +--indent-spaced-block-comments +--keep-interior-semicolons +--keep-old-blank-lines=5 +--keep-old-breakpoints-after='subaru' +--keep-old-breakpoints-before='=+' +--keyword-group-blanks-before=2 +--keyword-group-blanks-repeat-count=44 +--keyword-group-blanks-size='1.8' +--line-up-parentheses +--long-block-line-count=2 +--nolook-for-autoloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=39 +--maximum-file-size-mb=88 +--maximum-level-errors=54 +--maximum-line-length=28 +--maximum-unexpected-errors=71 +--minimum-space-to-comment=9 +--nospace-after-keyword='garbage1 local garbage1 garbage1' +--nowant-left-space='**= <<= %= !~ **= >= ||= >>= !~ & | /= = **= ||= ||= |=' +--nowant-right-space='* & <= -= &&= != == - &= *= <<= ||= > -= ^= = **=' +--one-line-block-nesting=78 +--one-line-block-semicolons=73 +--opening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--opening-hash-brace-right +--opening-paren-right +--opening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-labels +--outdent-static-block-comments +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=84 +--space-after-keyword='if do our if' +--space-backslash-quote=2 +--nospace-for-semicolon +--space-function-paren +--nospace-keyword-paren +--space-prototype-paren=0 +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--notight-secret-operators +--notrim-pod +--notrim-qw +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=1 +--want-break-after='% > x =~ .= ||= * <= -= | .= =~ .= + += / /=' +--want-break-before='||= <<= < //= |= | != //= **= .= = >= <<= =~ | ||= !=' +--want-left-space='< //= != &&= <= | < |= &&= <= >= /= %= &= <= &&= >' +--want-right-space='% += + >= >>= >>= & .= .= <= * * //= %= &= + <<=' +--warning-output +--weld-nested-containers + +==> b959.in <== +{ + if (defined( + $symbol_table{$direccion} + )) +} + +==> b959.par <== +--weld-nested-containers +--maximum-line-length=40 +--continuation-indentation=7 +--paren-tightness=2 +--extended-continuation-indentation + +==> b960.in <== +# State 1 + +$cron = + pkgfile( $PACKAGE, + "cron.$type" ) ; + +# State 2 + +$cron = + pkgfile( $PACKAGE, + "cron.$type" + ) ; + +==> b960.par <== +--indent-columns=1 +--maximum-line-length=26 +--line-up-parentheses +--space-terminal-semicolon + +#--weld-nested-containers +#--maximum-line-length=28 +#--space-function-paren + +==> b961.in <== +# state 1 + my($u,$u1)= + ( $self->bzero(), + $self->bone()); + +# state 2 + my($u,$u1)= + ( $self + ->bzero( + ), + $self->bone( + )); + +==> b961.par <== +--noadd-whitespace +--blank-lines-after-opening-block=1 +--blank-lines-before-closing-block=3 +--blank-lines-before-packages=0 +--noblanks-before-comments +--block-brace-tightness=1 +--block-brace-vertical-tightness=2 +--brace-vertical-tightness-closing=2 +--brace-vertical-tightness=1 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-keyword-breakpoints +--nobreak-at-old-method-breakpoints +--break-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace-and-indent=2 +--break-before-hash-brace=1 +--break-before-paren-and-indent=1 +--break-before-paren=3 +--break-before-square-bracket-and-indent=1 +--break-before-square-bracket=2 +--check-syntax +--closing-brace-indentation=2 +--closing-paren-indentation=1 +--closing-side-comment-else-flag=1 +--closing-side-comment-interval=16 +--closing-side-comment-maximum-text=51 +--noclosing-side-comment-warnings +--closing-side-comments +--noclosing-side-comments-balanced +--closing-square-bracket-indentation=2 +--closing-token-indentation=0 +--comma-arrow-breakpoints=4 +--continuation-indentation=3 +--nocuddled-block-list-exclusive +--cuddled-break-option=55 +--cuddled-else +--delete-block-comments +--delete-closing-side-comments +--delete-old-whitespace +--nodelete-side-comments +#--entab-leading-whitespace=4 +--noextended-syntax +--fixed-position-side-comment=84 +--noframes +--nofuzzy-line-length +--nohanging-side-comments +--noignore-old-breakpoints +--ignore-side-comment-lengths +--noindent-block-comments +--indent-closing-brace +--indent-columns=5 +--indent-spaced-block-comments +#--iterations=17 +--keep-interior-semicolons +--keep-old-blank-lines=39 +--keep-old-breakpoints-after='!' +--keep-old-breakpoints-before='train' +--keyword-group-blanks-after=2 +--keyword-group-blanks-before=2 +--keyword-group-blanks-repeat-count=23 +--keyword-group-blanks-size='4' +--line-up-parentheses +--long-block-line-count=38 +--maximum-consecutive-blank-lines=3 +--maximum-fields-per-table=21 +--maximum-file-size-mb=62 +--maximum-level-errors=90 +--maximum-line-length=13 +--maximum-unexpected-errors=93 +--nonon-indenting-braces +--nospace-after-keyword='while local do 34' +--nowant-left-space='x == =~ <= ||= += //= = <<= |= / &&= - / /= **= ||=' +--nowant-right-space='*= > > * ^= = - *= &= &&= <<= &&= /= > | |= <' +--one-line-block-nesting=96 +--one-line-block-semicolons=89 +--noopening-anonymous-sub-brace-on-new-line +--noopening-brace-always-on-right +--opening-brace-on-new-line +--opening-hash-brace-right +--noopening-paren-right +--noopening-square-bracket-right +--opening-sub-brace-on-new-line +--nooutdent-keywords +--nooutdent-labels +--nooutdent-long-quotes +--outdent-static-block-comments +--paren-vertical-tightness-closing=2 +--paren-vertical-tightness=1 +--nopass-version-line +--norecombine +--short-concatenation-item-length=92 +--show-options +--space-after-keyword='while garbage1 garbage1 do' +--nospace-for-semicolon +--nospace-function-paren +--space-keyword-paren +--space-prototype-paren=0 +--space-terminal-semicolon +--square-bracket-tightness=0 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=2 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--nostack-opening-square-bracket +--static-side-comments +--notight-secret-operators +--notrim-pod +--use-unicode-gcstring +--variable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=1 +--want-break-after='/ != < x= -= > * x .= & + -= &= <<= &&= >= .=' +--want-break-before='- < += &&= ^= += & .= & != += **= x > =~ %= *=' +--want-left-space='- & x ^= == &= !~ == / < == %= >= = >= -= |' +--want-right-space='> | ^= >>= >>= + != >>= > //= = & += >= -= >= &&=' +--warning-output +#--whitespace-cycle=66 + +==> b962.in <== +# State 1 +{ + + sub state1 + { if( $x ) + { + return MIME::Body::File + ->new ( $parser->output_path ( + $head ) ); + } + + + } } + +# State 2 + +{ + + sub state2 + { if( $x ) + { + return MIME::Body::File + ->new ( $parser + ->output_path ( $head ) ); + } + + + } } + +==> b962.par <== +--maximum-line-length=34 +--continuation-indentation=6 +--weld-nested-containers +--brace-left-and-indent +--extended-continuation-indentation +--paren-tightness=0 +--space-function-paren +--variable-maximum-line-length + +==> b963.in <== +my @cellbits= +( ['',' ',' +','','|','','','',' +'], + ['',' |','--+','','|','','','','--+'], ); + +my @cellbits=( + ['',' ',' +','','|','','','',' +'], + ['',' |','--+','','|','','','','--+'], +); + +==> b963.par <== +--noadd-whitespace +--blank-lines-after-opening-block=3 +--blank-lines-before-closing-block=3 +--blank-lines-before-packages=2 +--noblanks-before-comments +--block-brace-tightness=1 +--block-brace-vertical-tightness=1 +--brace-tightness=2 +--brace-vertical-tightness=1 +--break-after-all-operators +--nobreak-at-old-attribute-breakpoints +--nobreak-at-old-comma-breakpoints +--nobreak-at-old-logical-breakpoints +--nobreak-at-old-method-breakpoints +--nobreak-at-old-semicolon-breakpoints +--nobreak-at-old-ternary-breakpoints +--nobreak-before-all-operators +--break-before-hash-brace-and-indent=1 +--break-before-hash-brace=2 +--break-before-paren-and-indent=1 +--break-before-paren=2 +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--check-syntax +--closing-brace-indentation=2 +--closing-paren-indentation=2 +--closing-side-comment-interval=81 +--closing-side-comment-maximum-text=46 +--closing-side-comment-warnings +--noclosing-side-comments +--closing-square-bracket-indentation=2 +--closing-token-indentation=0 +--comma-arrow-breakpoints=4 +--continuation-indentation=8 +--cuddled-block-list-exclusive +--cuddled-break-option=31 +--default-tabsize=6 +--nodelete-block-comments +--delete-closing-side-comments +--delete-side-comments +--entab-leading-whitespace=2 +--noextended-syntax +--fixed-position-side-comment=58 +--noformat-skipping +--noignore-old-breakpoints +--noignore-side-comment-lengths +--noindent-block-comments +--noindent-closing-brace +--indent-columns=6 +--noindent-spaced-block-comments +##--iterations=8 +--keep-interior-semicolons +--keep-old-blank-lines=87 +--keep-old-breakpoints-after='sub' +--keep-old-breakpoints-before='1x' +--keyword-group-blanks-repeat-count=94 +--keyword-group-blanks-size='10' +--line-up-parentheses +--long-block-line-count=31 +--nolook-for-autoloader +--maximum-consecutive-blank-lines=2 +--maximum-fields-per-table=63 +--maximum-file-size-mb=92 +--maximum-level-errors=0 +--maximum-line-length=55 +--maximum-unexpected-errors=13 +--nomemoize +--nonon-indenting-braces +--nospace-after-keyword='if do if our' +--nowant-left-space='x //= <<= =~ = <= //= = !~ >= % -= = - > .= +=' +--nowant-right-space='x &&= !~ | ||= <= / =~ == < =~ > %= x + .= x' +--one-line-block-nesting=76 +--one-line-block-semicolons=25 +--noopening-anonymous-sub-brace-on-new-line +--opening-brace-always-on-right +--noopening-brace-on-new-line +--noopening-hash-brace-right +--opening-paren-right +--opening-square-bracket-right +--opening-sub-brace-on-new-line +--outdent-keywords +--nooutdent-long-quotes +--nooutdent-static-block-comments +--paren-vertical-tightness=2 +--nopass-version-line +--norecombine +--short-concatenation-item-length=91 +--space-after-keyword='34 local do garbage1' +--space-backslash-quote=0 +--nospace-for-semicolon +--space-function-paren +--nospace-keyword-paren +--space-prototype-paren=0 +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--stack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--notight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=1 +--want-break-after='- != x x= += |= = += !~ == <= * !~ < < ^= |' +--want-break-before='=~ >= + %= += -= *= **= | /= &&= ^= &&= <<= -= !~ %' +--want-left-space='=~ **= %= *= .= | <<= != - + == %= < **= != > -=' +--want-right-space='- <= x= < + != /= **= x + < **= -= == >>= >>= //=' +--weld-nested-containers +#--whitespace-cycle=49 + +==> b964.in <== +# State 1 +$mult= + ( $coeffs->[$i]/ + 2)+ + ( $x- + $points[$i] + [0])* + ( $coeffs->[$i+1] + -$coeffs + ->[$i])/ + (6*$delta); + +# State 2 + +$mult=( + $coeffs->[$i]/ + 2)+ + ($x- + $points[$i] + [0])* + ( + $coeffs->[$i+1] + -$coeffs + ->[$i])/ + (6*$delta); + +==> b964.par <== +--noadd-whitespace +--delete-old-whitespace +--indent-columns=8 +--line-up-parentheses +--maximum-line-length=15 +--opening-paren-right +--norecombine +--variable-maximum-line-length +--vertical-tightness=1 + +==> b965.in <== +# State 1 + if( $codonTable + ->is_start_codon + (substr( $seq,0,3 ))) + +# State 2 + if( $codonTable + ->is_start_codon + (substr( $seq,0,3 ))) + +==> b965.par <== +--noadd-whitespace +--delete-old-whitespace +--extended-continuation-indentation +--ignore-old-breakpoints +--indent-columns=9 +--maximum-line-length=60 +--opening-brace-always-on-right +--paren-vertical-tightness=1 +--short-concatenation-item-length=82 +--show-options +--space-after-keyword='local my while while' +--nospace-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--nostack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--stack-opening-paren +--nostack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +#--tabs +--notight-secret-operators +--notrim-pod +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=2 +--weld-nested-containers + +==> b966.in <== +# s1 + my @translations = ( $self + ->transexonscreation( + $dna, \@transcripts + ) ); +# s2 + my @translations = + ( $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + +==> b966.par <== +--break-at-old-method-breakpoints +--break-before-paren=2 +--maximum-line-length=45 +--vertical-tightness=1 +--weld-nested-containers + +==> b967.in <== +my ( + $primary) = + $self + ->_rearrange + ( + [ qw(PRIMARY + ) + ], + @args + ); + +my ( + $primary) = + $self + ->_rearrange + ( [qw(PRIMARY + )], + @args + ); + +==> b967.par <== +--maximum-line-length=12 +--short-concatenation-item-length=66 +--show-options +--space-after-keyword='while our 34 while' +--space-backslash-quote=2 +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--tight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=2 +--weld-nested-containers + +==> b971.in <== +# S1 + @keys = + grep { +/^_$keyprefix$type/i; + } ( keys + ( %{$self} + ) ); + +# s2 + @keys = + grep { +/^_$keyprefix$type/i; + } (keys ( + %{$self} ) ); + +==> b971.par <== +--continuation-indentation=3 +--extended-continuation-indentation +--indent-columns=7 +--line-up-parentheses +--maximum-line-length=12 +--short-concatenation-item-length=66 +--show-options +--space-after-keyword='while our 34 while' +--space-backslash-quote=2 +--nospace-function-paren +--space-keyword-paren +--nospace-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=1 +--stack-closing-block-brace +--nostack-closing-hash-brace +--nostack-closing-paren +--nostack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--tight-secret-operators +--trim-pod +--use-unicode-gcstring +--novalign +--variable-maximum-line-length +--vertical-tightness-closing=0 +--vertical-tightness=2 +--weld-nested-containers + +==> b972.in <== +# 3 cycle + $rev_order = ( + $exons[0]->end() <$exons[1]->start() ? 0 : 1) ; + + $rev_order = ($exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + $rev_order = + ($exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + + + $rev_order = ( + $exons[0]->end() <$exons[1]->start() ? 0 : 1) ; + +# Stable + $rev_order = ( + $exons[0]->end() <$exons[1]->start() + ? 0 + : 1) ; + +==> b972.par <== +--nobreak-at-old-ternary-breakpoints +--continuation-indentation=1 +--indent-columns=10 +--line-up-parentheses +--maximum-line-length=40 +--nowant-right-space='/= .= *= - * x= | >>= > += > <= < -= /= |= <' +--opening-paren-right +--paren-tightness=2 +--short-concatenation-item-length=16 +--show-options +--space-after-keyword='my if our while' +--nospace-for-semicolon +--nospace-function-paren +--nospace-keyword-paren +--space-terminal-semicolon +--square-bracket-tightness=2 +--square-bracket-vertical-tightness-closing=2 +--square-bracket-vertical-tightness=1 +--nostack-closing-block-brace +--nostack-closing-hash-brace +--stack-closing-paren +--nostack-closing-square-bracket +--stack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +#--tabs +--notight-secret-operators +--notrim-pod +--notrim-qw +--variable-maximum-line-length +--vertical-tightness-closing=2 +--vertical-tightness=1 +--want-break-after='> <<= = < > > - != !~ ^= | !~ %= **= = ^= <=' + +==> b973.in <== + my @translations = + ( + $self + ->transexonscreation( + $dna, \@transcripts + ) + ); + + my @translations = ( $self + ->transexonscreation( + $dna, \@transcripts + ) ); + +==> b973.par <== +--break-at-old-method-breakpoints +--break-before-paren=2 +--maximum-line-length=48 +--weld-nested-containers + +==> b974.in <== + $self->{'H'}= + [ + $self->catfile($self->updir,'Encode', 'encode.h') + ]; + + $self->{'H'}=[ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) + ]; + +==> b974.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=54 +--variable-maximum-line-length + +==> b975.in <== +foreach my $x ( + sort { lc($a) cmp lc($b) } + keys %INC + ) + +__END__ + +foreach my $x ( + sort { + lc($a) cmp lc($b) + } + keys %INC + ) + +==> b975.par <== +--indent-columns=9 +--line-up-parentheses +--maximum-line-length=40 + +==> b977.in <== + threads->create( + sub { lock($COUNT) ; $COUNT++ ; } + )->join() ; + + threads->create( sub { lock($COUNT) ; $COUNT++ ; } + )->join() ; + + threads->create( + sub { lock($COUNT) ; $COUNT++ ; } )->join() ; + +==> b977.par <== +--break-at-old-method-breakpoints +--indent-columns=5 +--maximum-line-length=56 +--paren-vertical-tightness-closing=2 +--space-terminal-semicolon + +==> b978.in <== + $ans = threads->create( sub { + threads->create( + sub { $p->greeting } )->join ; + } )->join ; + + $ans = threads->create( sub { + threads->create( sub { $p->greeting } + )->join ; + } )->join ; + + +==> b978.par <== +--break-at-old-method-breakpoints +--continuation-indentation=7 +--extended-continuation-indentation +--indent-columns=5 +--maximum-line-length=56 +--paren-vertical-tightness-closing=2 +--space-terminal-semicolon +--weld-nested-containers + +==> b979.in <== +$self->{'H'}= + [ + $self->catfile($self->updir,'Encode', 'encode.h') + ]; + +$self->{'H'}=[ + $self->catfile( + $self->updir,'Encode', 'encode.h' + ) +]; + +==> b979.par <== +--noadd-whitespace +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=54 +--variable-maximum-line-length + +==> b981.in <== + $self->{'H'} = + [ + $self->catfile( + $self->updir, 'Encode', 'encode.h' + ) + ]; + + $self->{'H'} = + [ + $self->catfile( $self->updir, 'Encode', 'encode.h' ) + ]; + + +==> b981.par <== +--break-before-square-bracket-and-indent=2 +--break-before-square-bracket=3 +--continuation-indentation=6 +--extended-continuation-indentation +--maximum-line-length=54 +--variable-maximum-line-length + +==> b982.in <== + do { + ok( 0 ==capture_warnings( + sub + { $_ = "x" ; + eval + "$strict no warnings '$warning_type'; $regex;" + ; + } + ), + "... and turning off '$warning_type' warnings suppressed it" + ) ; + } + +# S2 + do { + ok( 0 + ==capture_warnings(sub + { $_ = "x" ; + eval + "$strict no warnings '$warning_type'; $regex;" + ; + }), + "... and turning off '$warning_type' warnings suppressed it" + ) ; + } + + +==> b982.par <== +--continuation-indentation=7 +--extended-continuation-indentation +--indent-columns=6 +--line-up-parentheses +--maximum-line-length=68 +--nowant-right-space='* //= ^= x= + ||= == <= %= **= ||= >= * *= &&= /= /' +--short-concatenation-item-length=80 +--show-options +--space-after-keyword='garbage1 while our local' +--nospace-for-semicolon +--nospace-function-paren +--nospace-keyword-paren +--space-prototype-paren=0 +--space-terminal-semicolon +--square-bracket-vertical-tightness-closing=1 +--square-bracket-vertical-tightness=2 +--stack-closing-block-brace +--stack-closing-hash-brace +--stack-closing-paren +--stack-closing-square-bracket +--nostack-opening-hash-brace +--nostack-opening-paren +--stack-opening-square-bracket +--nostatic-block-comments +--static-side-comments +--notight-secret-operators +--notrim-pod +--notrim-qw +--use-unicode-gcstring +--novalign +--novariable-maximum-line-length +--vertical-tightness-closing=1 +--vertical-tightness=2 +--weld-nested-containers + +==> b983.in <== +# S1 + my $arg = { + module => sub + {[ $self->containsmods ]}, + }; +# S2 + my $arg = { + module => + sub {[ + $self->containsmods ]}, + }; + +==> b983.par <== +--block-brace-tightness=2 +--continuation-indentation=7 +--maximum-line-length=35 +--opening-anonymous-sub-brace-on-new-line +--variable-maximum-line-length +--weld-nested-containers + +==> b984.in <== + unless ( + exists $self->{ + 'accession_number'} ) + { return "unknown"; + } + + unless ( + exists $self->{ + 'accession_number'} ) + { + return "unknown"; + } + + +==> b984.par <== +--block-brace-vertical-tightness=2 +--indent-columns=10 +--maximum-line-length=27 +--outdent-keywords +--variable-maximum-line-length + +==> b985.in <== +# State 1 + if ( + $seqType =~ /list|array/i ) + { + return ( '', '' ) + unless + defined $self->{ + '_queryStrand'}; + } + +#State 2 + if ( + $seqType =~ /list|array/i ) + { return ( '', '' ) + unless + defined $self->{ + '_queryStrand'}; + } + + +==> b985.par <== +--block-brace-vertical-tightness=2 +--indent-columns=10 +--maximum-line-length=27 +--outdent-keywords +--variable-maximum-line-length + +==> b988.in <== +my $seq = + ( new Bio::SeqIO( + '-format' => + 'fasta', + '-file' => + Bio::Root::IO + ->catfile( + "t", +"AAC12660.fa" + ) + ) +)->next_seq(); + +==> b988.par <== +--break-before-all-operators +--break-before-paren=2 +--maximum-line-length=21 +--norecombine +--vertical-tightness=2 +--weld-nested-containers + +==> b989.in <== +my $branch = ( + split( + m#/#, $branchdata + ) +)[5]; + +my $branch = + ( + split( m#/#, $branchdata ) ) + [5]; + + +==> b989.par <== +--break-before-paren-and-indent=2 +--break-before-paren=3 +--continuation-indentation=5 +--extended-continuation-indentation +--indent-columns=7 +--maximum-line-length=29 +--variable-maximum-line-length + +==> b990.in <== + print H + ; + + print + H; + + +==> b990.par <== +--noadd-whitespace +--continuation-indentation=0 +--maximum-line-length=7 +--space-terminal-semicolon + +==> b991.in <== + if + (&y_or_n + ( + < b991.par <== +--noadd-whitespace +--continuation-indentation=6 +--indent-columns=10 +--maximum-line-length=29 +--weld-nested-containers + +==> b992.in <== + my @translations = + ( + $self->transexonscreation( + $dna, \@transcripts + ) + ); + +==> b992.par <== +--break-before-paren=3 +--maximum-line-length=30 +--norecombine +--variable-maximum-line-length +--want-break-before='/= * > / .= % / - = &= / > !~ *= += x= >>=' +--weld-nested-containers + +==> b994.in <== +# State 1 +do +sub : +lvalue +{ +return; +} + +# State 2 +do sub +: +lvalue +{ + return; +} + +==> b994.par <== +--continuation-indentation=0 +--ignore-old-breakpoints +--maximum-line-length=7 +--opening-anonymous-sub-brace-on-new-line + +==> b995.in <== +eval{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{ + { + {} + } +}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}; + +eval{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ +{{ + { + {} + } +}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} +}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}; + +==> b995.par <== +--noadd-whitespace +--indent-columns=9 +--weld-nested-containers + +==> b996.in <== + $x= + &{ $C + . "::__strip_zeros" + } + ([0,1,2,0,0,0]) ; + + $x= + &{ $C + . "::__strip_zeros" + }( + [0,1,2,0, + 0, + 0] + ) ; + +==> b996.par <== +--noadd-whitespace +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=27 +--weld-nested-containers + +==> b997.in <== + $x= + &{$CALC + ."::__strip_zeros" + }([0,1,2,0,0,0]); + + $x= + &{$CALC + ."::__strip_zeros" + }( + [0,1,2,0, + 0, + 0] + ); + +==> b997.par <== +--noadd-whitespace +--ignore-old-breakpoints +--indent-columns=8 +--maximum-line-length=27 +--weld-nested-containers + +==> b998.in <== +eval +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { +{ { { { { { {} } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } +} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }; + +==> b998.par <== +--continuation-indentation=6 +--maximum-line-length=75 +--weld-nested-containers + +==> b999.in <== +# S1 + while ( + $line =~ + +s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e + ) +__END__ + +# S2 + while ( + $line =~ + +s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e ) + + +==> b999.par <== +--maximum-line-length=75 +--paren-vertical-tightness-closing=1 diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod index 624cf95b..41041242 100644 --- a/local-docs/BugLog.pod +++ b/local-docs/BugLog.pod @@ -8,7 +8,7 @@ Testing revealed a formatting irregularity which was caused when the flag -cab=2 got applied to a container which was not a list. This is fixed with update, which fixes case b939a. -1 Jul 2021. +1 Jul 2021, 021b938. =item B @@ -17,7 +17,7 @@ fixed 21 Jun 2021, 1b682fd, was unstable again. This update is a small change which fixes this. There are no other known unstable cases at this time but automated testing runs continue to search for instabilities. -1 Jul 2021. +1 Jul 2021, 021b938. =item B @@ -29,7 +29,7 @@ The previous Tokenizer update caused the use of an unitialized value when run on This update fixes this. -1 Jul 2021. +1 Jul 2021, ea139bd. =item B -- 2.39.5