push ( @array, $val ); # test -skp and also -sak='push'
split( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'
+$c-> #sub set_whitespace_flags must look back past side comment
+ bind( $o, $n, [ \&$q, \%m ] );
----------
'tightness' => <<'----------',
push( @array, $val ); # test -skp and also -sak='push'
split( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'
+$c-> #sub set_whitespace_flags must look back past side comment
+ bind( $o, $n, [ \&$q, \%m ] );
#14...........
},
push ( @array, $val ); # test -skp and also -sak='push'
split ( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'
+$c-> #sub set_whitespace_flags must look back past side comment
+ bind ( $o, $n, [ \&$q, \%m ] );
#15...........
},
push ( @array, $val ); # test -skp and also -sak='push'
split( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'
+$c-> #sub set_whitespace_flags must look back past side comment
+ bind( $o, $n, [ \&$q, \%m ] );
#16...........
},