Branch Coverage

blib/lib/Lustre/Info.pm
Criterion Covered Total %
branch 4 54 7.4


line true false branch
44 1 0 unless opendir OBD, '/proc/fs/lustre/obdfilter'
46 0 0 if $dirent =~ /^\./
47 0 0 unless -d join('/', '/proc/fs/lustre/obdfilter', $dirent)
63 0 0 unless opendir EXP, $export_dir
65 0 0 if $dirent =~ /^\./
66 0 0 unless -d $export_dir . $dirent
79 0 0 unless opendir OBD, '/proc/fs/lustre/mds'
81 0 0 if $dirent =~ /^\./
82 0 0 unless -d join('/', '/proc/fs/lustre/mds', $dirent)
92 0 1 -d '/proc/fs/lustre/ost' ? :
98 0 1 -d '/proc/fs/lustre/mds' ? :
104 0 1 -d '/proc/fs/lustre/mdt' ? :
132 0 0 unless open LF, '/proc/fs/lustre/version'
134 0 0 if ($_ =~ /^lustre: (\d.+)$/)
150 0 0 unless open P, $fname
153 0 0 if (my($name, $samples, $format, $min, $max, $count) = $_ =~ /^(\S+)\s+(\d+) samples \[(.+)\]\s+(\d+)\s+(\d+)\s+(\d+)[^\d]/) { }
0 0 elsif (my($rqname, $rqx, $rqformat) = $_ =~ /^(\S+)\s+(\d+) samples \[(.+)\]/) { }
0 0 elsif ($_ =~ /^snapshot_time\s+([0-9.]+) /) { }
174 0 0 unless open P, $fname
176 0 0 if ($_ =~ /^snapshot_time:\s+([0-9.]+) /) { }
0 0 elsif ($_ =~ /([^:]+?)(\s+)ios .+ ios/) { }
0 0 elsif ($_ =~ /^$/) { }
0 0 elsif ($ctx and $_ =~ /^(.+):\s+(\d+)\s+\d+\s+\d+\s+\|\s*(\d+)\s+\d+/) { }
201 0 0 unless open P, $fname
203 0 0 if (my($k, $v) = $_ =~ /^(\S+):\s+(.+)$/)
204 0 0 if ($v =~ m[^(\d+)/(\d+)$])
241 0 0 if $@