--- /dev/null
+==> 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'=>'<font color="#2040a0"><strong>',
+ 'stop'=>'</strong></font>'
+ },
+ }
+};
+
+$STYLESHEET{'html-light'}={
+ 'tags'=>{
+ 'predefined identifier'=>
+ {
+ 'start'=>'<font color="#2040a0"><strong>','stop'=>'</strong></font>'
+ },
+ }
+};
+
+==> 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
+ (
+ <<EOT,1))
+Bubba
+EOT
+ if(
+ &y_or_n
+ (
+ <<EOT,1))
+Bubba
+EOT
+
+==> 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
projects / perltidy.git / commitdiff