Condition Coverage

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


and 3 conditions

line !l l&&!r l&&r condition
287 0 0 1 $_[0]->is_int and $_[0]->beq($_[0]->numify)
459 0 0 0 &blessed($reader) and $reader->isa("StorageDisplay::Collect::CMD")
881 0 0 0 ($lsblk_info->{'type'} // "") eq "loop" and ($lsblk_info->{'size'} // 0) == 0
894 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"
1341 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]+)$/
1841 0 0 0 $curdisk ne "" and not $line =~ /^disk\.$curdisk\./
1842 0 0 0 exists $curdiskinfo->{'name'} and exists $curdiskinfo->{'alias'}

or 2 conditions

line l !l condition
81 0 0 shift() // "Local"
457 0 0 $args{'recorder-args-pass'} // {}
615 0 0 $self->{'_attr_depends'}{$kind} // []
632 0 0 shift() // {}
646 0 0 $infos->{'requires'} // []
647 0 0 $infos->{'provides'} // []
648 0 0 $infos->{'depends'} // {}
866 0 0 shift() // {}
873 0 0 $udev_info->{'_udev_infos'}{'DEVTYPE'} // ""
876 0 0 $udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // ""
877 0 0 $lsblk_info->{'rm'} // 0
881 0 0 $lsblk_info->{'type'} // ""
0 0 $lsblk_info->{'size'} // 0
886 0 0 $lsblk_info->{'type'} // ""
894 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'} // ""
919 0 0 $udev_info->{'_udev_infos'}{'ID_PART_TABLE_TYPE'} // ""
1025 0 0 shift() // {}
1030 0 0 $data->{'vg_name'} // die("no vg_name in data!")
1213 0 0 shift() // {}
1220 0 0 $udev_info->{'_udev_infos'}{'ID_FS_TYPE'} // ""
1240 0 0 $_->{'DM_SUBSYSTEM'} // ""
1301 0 0 shift() // [$self->select($infos)]
1379 0 0 shift() // {}
1419 0 0 shift() // {}
1608 0 0 shift() // {}
1631 0 0 shift() // {}
1737 0 0 &$get_cur_disk() // (next)
1746 0 0 &$get_cur_disk() // (next)
1750 0 0 &$get_cur_disk() // (next)
1775 0 0 shift() // {}
1813 0 0 $info[0] // ""
1834 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.
1900 0 0 shift() // {}
1970 0 0 shift() // {}
2034 0 0 shift() // "Local"

or 3 conditions

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