perl_checker.src/test/force_layout.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

sub xxx                                  you should not have a carriage-return (\n) here
{}                                       

xxx                                      you should not have a carriage-return (\n) here
   ($xxx);                               

xxx( $xxx)                               you should not have a space here

$xxx ++                                  you should not have a space here

my($_xxx, $_yyy)                         you should have a space here

xxx ($xxx)                               you should not have a space here

'foo'.'bar'                              you should have a space here

if ($xxx) {                              missing ";"
   xxx()                                 
}                                        

if ($xxx) {                              unneeded ";"
   xxx();                                
};