File: OpenArgs.run

package info (click to toggle)
libperl-critic-freenode-perl 0.033-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 408 kB
  • sloc: perl: 1,038; makefile: 2
file content (34 lines) | stat: -rw-r--r-- 443 bytes parent folder | download | duplicates (5) 
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
 
## name OpenOneArg
## failures 2
## cut

open FILE or die;
open my $fh;

## name OpenTwoArgs
## failures 2
## cut

open FILE, "<$filename" or die;
open my $fh, "<$filename";

## name OpenThreeArgs
## failures 0
## cut

open FILE, '<', $filename or die;
open my $fh, '<', $filename;

## name OpenFourArgs
## failures 0
## cut

open my $fh, '-|', 'ls', '-al';

## name OpenFork
## failures 0
## cut

open my $child, '-|';
open my $child, '|-';