summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/test/force_layout.t
blob: bb5494ec885f98282228e1ffe64ec4c2a338f734 (plain)
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();                                
};