Condition Coverage

blib/lib/StorageDisplay/Collect.pm
Criterion Covered Total %
condition 1 115 0.8


and 3 conditions

line !l l&&!r l&&r condition
287 0 0 1 $_[0]->is_int and $_[0]->beq($_[0]->numify)
448 0 0 0 &blessed($reader) and $reader->isa("StorageDisplay::Collect::CMD")
875 0 0 0 ($lsblk_info->{'type'} // "") eq "loop" and ($lsblk_info->{'size'} // 0) == 0
888 0 0 0 ($udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // "") eq "dos" and ($udev_info->{'_udev_infos'}{'ID_PART_ENTRY_NUMBER'} // "") ne ""
0 0 0 ($udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // "") eq "dos" and ($udev_info->{'_udev_infos'}{'ID_PART_ENTRY_NUMBER'} // "") ne "" and ($udev_info->{'_udev_infos'}{'DM_TYPE'} // "") eq "raid"
1312 0 0 0 not $container and $line =~ /^\s*([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9-]+)\s+([^\s].*[^\s])\s+([^\s]+)$/
0 0 0 $container and $line =~ /^\s*(-)\s+([0-9]+)\s+([0-9]+)\s+(-)\s+([^\s]+)$/
1823 0 0 0 $curdisk ne "" and not $line =~ /^disk\.$curdisk\./
1824 0 0 0 exists $curdiskinfo->{'name'} and exists $curdiskinfo->{'alias'}

or 2 conditions

line l !l condition
81 0 0 shift() // "Local"
446 0 0 $args{'recorder-args-pass'} // {}
604 0 0 $self->{'_attr_depends'}{$kind} // []
621 0 0 shift() // {}
635 0 0 $infos->{'requires'} // []
636 0 0 $infos->{'provides'} // []
637 0 0 $infos->{'depends'} // {}
860 0 0 shift() // {}
867 0 0 $udev_info->{'_udev_infos'}{'DEVTYPE'} // ""
870 0 0 $udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // ""
871 0 0 $lsblk_info->{'rm'} // 0
875 0 0 $lsblk_info->{'type'} // ""
0 0 $lsblk_info->{'size'} // 0
880 0 0 $lsblk_info->{'type'} // ""
888 0 0 $udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // ""
0 0 $udev_info->{'_udev_infos'}{'ID_PART_ENTRY_NUMBER'} // ""
0 0 $udev_info->{'_udev_infos'}{'DM_TYPE'} // ""
913 0 0 $udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // ""
1019 0 0 shift() // {}
1024 0 0 $data->{'vg_name'} // die("no vg_name in data!")
1184 0 0 shift() // {}
1191 0 0 $udev_info->{'_udev_infos'}{'ID_FS_TYPE'} // ""
1211 0 0 $_->{'DM_SUBSYSTEM'} // ""
1272 0 0 shift() // [$self->select($infos)]
1350 0 0 shift() // {}
1390 0 0 shift() // {}
1579 0 0 shift() // {}
1602 0 0 shift() // {}
1708 0 0 &$get_cur_disk() // (next)
1717 0 0 &$get_cur_disk() // (next)
1721 0 0 &$get_cur_disk() // (next)
1746 0 0 shift() // {}
1784 0 0 $info[0] // ""
1816 0 0 $v->{'state'} // Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
1869 0 0 shift() // "Local"

or 3 conditions

line l !l&&r !l&&!r condition
1379 0 0 0 $state != 0 or $nodata != 1
1422 0 0 0 $line eq "SAS2IRCU: Command DISPLAY Completed Successfully." or $line eq "SAS2IRCU: Utility Completed Successfully."
1451 0 0 0 $line =~ /^(Controller) information$/ or $line =~ /^(Enclosure) information$/
0 0 0 $line =~ /^IR (Volume) information$/ or $line =~ /^Physical (device) information$/
1520 0 0 0 $name{$k} // $k
1701 0 0 0 defined $cur_slot or not defined $cur_enc