1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
## name HasSwitch
## failures 1
## cut
#!/usr/bin/perl -w
## name UppercaseSwitch
## failures 1
## cut
#!/usr/bin/perl -W
## name EmbeddedSwitch
## failures 1
## cut
#!/usr/bin/perl -w -T
## name BundledSwitch1
## failures 1
## cut
#!/usr/bin/perl -wT
## name BundledSwitch2
## failures 1
## cut
#!/usr/bin/perl -Tw
## name BundledSwitch3
## failures 1
## cut
#!/usr/bin/perl -TwT
## name NoSwitch
## failures 0
## cut
#!/usr/bin/perl -T
## name NoShebang
## failures 0
## cut
package Foo;
|
