Condition Coverage

lib/ExtUtils/MM_VMS.pm
Criterion Covered Total %
condition 0 149 0.0


and 3 conditions

line !l l&&!r l&&r condition
169 0 0 0 $absa and $absb
179 0 0 0 $ahasdir and not $bhasdir
0 0 0 $bhasdir and not $ahasdir
281 0 0 0 -x $file and not -d _
295 0 0 0 -x "$sysfile$ext" and not -d _
357 0 0 0 -r $file and not -d _
588 0 0 0 $macro =~ /MAN/ and $$self{$macro} eq 'none'
630 0 0 0 $self ne ' ' and defined $$self{$macro}
710 0 0 0 length $quals and not $quals =~ m[/]
1319 0 0 0 $$self{'PERL_ARCHLIB'} =~ /\[-/ and $$self{'PERL_SRC'} =~ /(\[-+)/
1432 0 0 0 $extra and ref $extra eq 'ARRAY'
1457 0 0 0 exists $libseen{$_} && !exists($seenthis{$_})
1632 0 0 0 $$self{'ARGS'}{'PREFIX'} && $self->file_name_is_absolute($path)
1990 0 0 0 ($prefix, $name) = $path =~ /^\$\(([^\)]+)\)(.+)/s and $$self{$prefix}

or 2 conditions

line l !l condition
421 0 0 $$self{'DEFINE'} ||= ''
467 0 0 $$self{'NOECHO'} ||= '@ '
469 0 0 $$self{'FIRST_MAKEFILE'} || 'Descrip.MMS'
471 0 0 $$self{'MAKE_APERL_FILE'} ||= 'Makeaperl.MMS'
484 0 0 $$self{'MACROSTART'} ||= '/Macro=('
485 0 0 $$self{'MACROEND'} ||= ')'
486 0 0 $$self{'USEMAKEFILE'} ||= '/Descrip='
488 0 0 $$self{'EQUALIZE_TIMESTAMP'} ||= '$(ABSPERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"'
500 0 0 $$self{'SHELL'} ||= 'Posix'
738 0 0 $$self{'LIBPERL_A'} || 'libperl.olb'
752 0 0 $$self{'PERLTYPE'} ||= ''
861 0 0 $$self{'ZIPFLAGS'} ||= '-Vu'
862 0 0 $$self{'COMPRESS'} ||= 'gzip'
863 0 0 $$self{'SUFFIX'} ||= '-gz'
864 0 0 $$self{'SHAR'} ||= 'vms_share'
865 0 0 $$self{'DIST_DEFAULT'} ||= 'zipdist'
943 0 0 $attribs{'DL_FUNCS'} || $$self{'DL_FUNCS'} || {}
944 0 0 $attribs{'DL_VARS'} || $$self{'DL_VARS'} || []
945 0 0 $attribs{'FUNCLIST'} || $$self{'FUNCLIST'} || []
1027 0 0 $attribs{'OTHERLDFLAGS'} || ''
1028 0 0 $attribs{'INST_DYNAMIC_DEP'} || ''
1758 0 0 $append || 0
1843 0 0 $$self{'_MAX_EXEC_LEN'} ||= 256
1852 0 0 $$self{'EXPORT_LIST'} ||= '$(BASEEXT).opt'
1864 0 0 $$self{'PERL_ARCHIVE_AFTER'} ||= ''

or 3 conditions

line l !l&&r !l&&!r condition
181 0 0 0 $bb =~ /\d/ <=> $ba =~ /\d/ or substr($ba, 0, 1) cmp substr($bb, 0, 1)
469 0 0 0 $$self{'MAKEFILE'} ||= $$self{'FIRST_MAKEFILE'} || 'Descrip.MMS'
470 0 0 0 $$self{'FIRST_MAKEFILE'} ||= $$self{'MAKEFILE'}
472 0 0 0 $$self{'MAKEFILE_OLD'} ||= $self->eliminate_macros('$(FIRST_MAKEFILE)_old')
490 0 0 0 $$self{'MOD_INSTALL'} ||= $self->oneliner("install([ from_to => {split(' ', )}, verbose => '\$(VERBINST)', uninstall_shadows => '\$(UNINST)', dir_mode => '\$(PERM_DIR)' ]);\n", ['-MExtUtils::Install'])
684 0 0 0 $$self{'CCFLAGS'} || $ExtUtils::MM_VMS::Config{'ccflags'}
754 0 0 0 $flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'}
0 0 0 $$self{'OPTIMIZE'} ||= $flagoptstr || $ExtUtils::MM_VMS::Config{'optimize'}
971 0 0 0 $$self{'OBJECT'} =~ /\bBASEEXT\b/ or $$self{'OBJECT'} =~ /\b$$self{'BASEEXT'}\b/i
1060 0 0 0 $$self{'OBJECT'} or @{[] unless $$self{'C'};}
0 0 0 $$self{'OBJECT'} or @{[] unless $$self{'C'};} or $$self{'MYEXTLIB'}
1494 0 0 0 -f $libperl or -f ($libperl = $self->catfile($ExtUtils::MM_VMS::Config{'installarchlib'}, 'CORE', $libperl))
1628 0 0 0 $$self{uc $var} || $ExtUtils::MM_Unix::Config_Override{lc $var} || $ExtUtils::MM_VMS::Config{lc $var} || $ExtUtils::MM_VMS::Config{lc $var_no_install}
1856 0 0 0 $$self{'PERL_ARCHIVE'} ||= $self->catfile($$self{'PERL_SRC'}, "$shr.$ExtUtils::MM_VMS::Config{'dlext'}")
1860 0 0 0 $$self{'PERL_ARCHIVE'} ||= $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$ExtUtils::MM_VMS::Config{'dlext'}"
1990 0 0 0 $path =~ /^\$\([^\)]+\)\Z(?!\n)/s or $path =~ m([/:>\]])
1991 0 0 0 $force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/
2001 0 0 0 $vmspre =~ m[/] || $prefix =~ /DIR\Z(?!\n)/
2010 0 0 0 defined $force_path or $fixedpath =~ /[:>(.\]]/