Branch Coverage

blib/lib/Win32/RASE.pm

Criterion	Covered	Total	%
branch	2	352	0.5

line	true	false	branch
150	0	1	$Win32::RASE::WINVER >= 1024 ? :
251	0	0	if $_[0] % 4
257	1	0	unless ($@)
272	0	0	unless $ret = 'Win32::API'->new(@_)
370	0	0	unless $Win32::RASE::LastError
390	0	0	unless $errnum =~ /^\-?\d+$/
393	0	0	if ($errnum >= 600 and $errnum <= 750) { }
	0	0	elsif ($errnum == 751) { }
	0	0	elsif ($errnum == 752) { }
	0	0	elsif ($errnum & 2147483648) { }
	0	0	elsif ($errnum & 2415919104) { }
	0	0	elsif ($errnum > 4294901760) { }
397	0	0	if $ret
552	0	0	if $hwnd and not IsWindow $hwnd
558	0	0	if $ret
588	0	0	if $hwnd and not IsWindow $hwnd
590	0	0	unless &IsEntry($entry)
596	0	0	if $ret
615	0	0	unless &IsEntry($old)
616	0	0	if &IsEntry($new)
622	0	0	if $ret
641	0	0	unless &IsEntry($entry)
647	0	0	if $ret
682	0	0	if ($ret)
686	0	0	if $ret = $Win32::RASE::RasEnumEntries->Call(0, $Win32::RASE::PHONEBOOK || 0, $RASENTRYNAME, $lpcb, $lpcEntries)
754	0	0	unless IsEntry $szEntryName
758	0	0	$Win32::RASE::WINVER >= 1025 ? :
774	0	0	if $ret
784	0	0	unless $fPassword
808	0	0	unless my(@a) = RasGetEntryDialParams(shift())
864	0	0	unless IsEntry $szEntryName
868	0	0	$Win32::RASE::WINVER >= 1025 ? :
887	0	0	if $ret
1019	0	0	unless IsEntry $entry
1044	0	0	if $ret
1058	0	0	wantarray ? :
1067	0	0	$Win32::RASE::WINVER >= 1025 ? :
1137	0	0	if $dwfNetProtocols & 1
1138	0	0	if $dwfNetProtocols & 2
1139	0	0	if $dwfNetProtocols & 4
1141	0	0	if $dwFramingProtocol eq 1
1142	0	0	if $dwFramingProtocol eq 2
1143	0	0	if $dwFramingProtocol eq 4
1149	0	0	unless defined %Win32::RASE::TAPIEnumeration
1151	0	0	exists $Win32::RASE::TAPIEnumeration{$dwCountryID} ? :
1176	0	0	if $dwfOptions & eval $i
1201	0	0	unless my $props = RasGetEntryProperties $entry
1206	0	0	if $p eq 'name'
1207	0	0	if (not ref $$props{$p}) { }
1210	0	0	@{$$props{$p};} ? :
1482	0	0	unless my($RASENTRY, $lpbDeviceInfo) = RasGetEntryProperties $entry
1490	0	0	unless $lpbDeviceInfo
1500	0	0	unless $dwVersion == 65539
1513	0	0	unless $dwProviderSubType == 6
1522	0	0	if eval "$_" & $fwOptions
1562	0	0	if eval "MDM_$_" & $dwPreferredModemOptions
1565	0	0	if eval "MDM_$_" & $dwNegotiatedModemOptions
1624	0	0	/Char$/ && $caller =~ /RasPrintEntryDevProperties/ ? :
1664	0	0	unless my $props = RasGetEntryDevProperties $entry
1669	0	0	if $p eq 'name'
1670	0	0	if (not ref $$props{$p}) { }
1673	0	0	@{$$props{$p};} ? :
1711	0	0	unless IsEntry $old
1712	0	0	if IsEntry $new
1716	0	0	unless my($tagRASENTRY, $lpbDI) = RasGetEntryProperties $old
1721	0	0	if $ret
1886	0	0	unless ref $props eq 'HASH'
1888	0	0	unless $$props{'name'}
1890	0	0	unless IsEntry($$props{'name'})
1893	0	0	unless my($RASENTRY, $lpbDeviceInfo) = RasGetEntryProperties($$props{'name'})
1910	0	0	if (not $$props{'DeviceName'}) { }
1921	0	0	unless my($RASENTRY1, $lpbDeviceInfo1) = RasGetEntryProperties($$props{'name'})
1931	0	0	if $ret
1972	0	0	unless ref $props eq 'HASH'
1974	0	0	unless $$props{'name'}
1976	0	0	if IsEntry($$props{'name'})
1982	0	0	unless exists $$props{$_}
1984	0	0	unless $$props{$_}
2013	0	0	if $ret
2035	0	0	unless $RASENTRY
2068	0	0	if (defined $DeviceName)
2072	0	0	if ($DeviceName ne $szDeviceName)
2073	0	0	unless defined %Win32::RASE::RasDevEnumeration
2074	0	0	unless exists $Win32::RASE::RasDevEnumeration{$DeviceName}
2082	0	0	if (defined $Script)
2084	0	0	unless $Script eq '' or -f $Script and -'s_'
2089	0	0	if (defined $AreaCode)
2091	0	0	unless $AreaCode =~ /^\d*$/
2096	0	0	if (defined $LocalPhoneNumber)
2099	0	0	unless $LocalPhoneNumber =~ /^[\d\-.]*$/
2106	0	0	if (defined $CountryID) { }
	0	0	elsif (defined $CountryCode) { }
2107	0	0	unless defined %Win32::RASE::TAPIEnumeration
2111	0	0	unless $CountryID =~ /^\d*$/
2114	0	0	unless exists $Win32::RASE::TAPIEnumeration{$CountryID}
2119	0	0	if (defined $CountryCode)
2120	0	0	unless $CountryCode == $Win32::RASE::TAPIEnumeration{$CountryID}[1]
2128	0	0	unless defined %Win32::RASE::TAPIEnumeration
2132	0	0	unless $CountryCode =~ /^\d*$/
2134	0	0	unless grep {$Win32::RASE::TAPIEnumeration{$_}[1] == $CountryCode;} keys %Win32::RASE::TAPIEnumeration
2141	0	0	if (defined $$props{$_})
2146	0	0	if (not $var) { }
2149	0	0	unless $var =~ /^$pat$/
2155	0	0	if (defined $FramingProtocol)
2157	0	0	unless $FP =~ /^(PPP|SLIP|RAS)$/
2159	0	0	if $FP eq 'PPP'
2160	0	0	if $FP eq 'SLIP'
2161	0	0	if $FP eq 'RAS'
2164	0	0	if (defined $NetProtocols)
2165	0	0	unless ref $NetProtocols eq 'ARRAY'
2169	0	0	unless $NP =~ /^(NETBEUI|IPX|IP)(\|(NETBEUI|IPX|IP))*$/
2172	0	0	if $NP =~ /NETBEUI/
2173	0	0	if $NP =~ /IPX/
2174	0	0	if $NP =~ /IP(\||$)/
2178	0	0	if (defined $Flags) { }
2179	0	0	$Flags =~ s/\+?(RASEO_)?KeepOldFlags// ? :
2180	0	0	if $Flags =~ s/\-(RASEO_)?KeepOldFlags//
2184	0	0	unless $_
2186	0	0	if (defined &$_) { }
	0	0	elsif (defined &{"RASEO_$_";}) { }
	0	0	elsif (/^-(.+)$/ and defined &$1) { }
	0	0	elsif (/^-(.+)$/ and defined &{"RASEO_$1";}) { }
2270	0	0	unless defined $Win32::RASE::LOCAL_ID and defined $Win32::RASE::LOCAL_CODE and defined $Win32::RASE::LOCAL_AREA
2276	0	0	unless ($$props{'CountryCode'}, $$props{'AreaCode'}, $$props{'LocalPhoneNumber'}) = $phone =~ /(\d+)(?:[+\- ]*\( *|[+\- ]+)(\d+)(?: *\)[+\- ]*|[+\- ]+)(\d[\d\-]+\d)/
2281	0	0	if ($$props{'AreaCode'} eq $Win32::RASE::LOCAL_AREA and $$props{'CountryCode'} eq $Win32::RASE::LOCAL_CODE) { }
2287	0	0	unless my $ret = RasSetEntryProperties $props
2330	0	0	$Win32::RASE::WINVER >= 1024 ? :
2344	0	0	if ($ret)
2349	0	0	if $ret
2447	0	0	if ($rasprojection == 32801)
2455	0	0	if $ret = $Win32::RASE::RasGetProjectionInfo->Call($hrasconn, $rasprojection, $RASPPPIP, $lpcb)
2463	0	0	if $dwError
2517	0	0	unless $hrasconn and not $hrasconn =~ /\D/
2523	0	0	$Win32::RASE::Time_HiRes_loaded ? :
2527	0	0	if $ret
2532	0	0	unless &RasGetConnectStatus($hrasconn)
2564	0	0	unless my(%conns) = RasEnumConnections
2569	0	0	unless @entries
2572	0	0	unless exists $conns{$_}
2574	0	0	unless RasHangUp $conns{$_}
2664	0	0	unless $hrasconn and not $hrasconn =~ /\D/
2677	0	0	if $ret == 6
2679	0	0	if $ret
2686	0	0	wantarray ? :
2739	0	0	if $hwnd and not IsWindow $hwnd
2743	0	0	if my $ret = $Win32::RASE::RasDialDlg->Call($Win32::RASE::PHONEBOOK || 0, $entry, $lpszPhoneNumber || 0, $RASDIALDLG)
2852	0	0	unless $szEntryName or $szPhoneNumber
2857	0	0	$Win32::RASE::WINVER >= 1025 ? :
2879	0	0	if ($ret) { }
2880	0	0	if $hrasconn
2941	0	0	if ($ret)
2947	0	0	if $ret
2981	0	0	unless defined %Win32::RASE::RasDevEnumeration
3037	0	0	unless IsCountryID $Win32::RASE::LOCAL_ID
3040	0	0	unless TAPICountryCode $Win32::RASE::LOCAL_ID == $Win32::RASE::LOCAL_CODE and not $Win32::RASE::LOCAL_AREA =~ /\D/
3106	0	0	if $ret
3114	0	0	if $ret
3143	0	0	if $dwCurrentLocationID == $dwPermanentLocationID
3171	0	0	unless exists $locations{$location}
3179	0	0	if $ret = $Win32::RASE::lineSetCurrentLocation->Call($hLineApp, $dwLocation)
3183	0	0	if $ret = &TAPIlineShutdown($hLineApp)
3200	0	0	if ($ret == 603)
3203	0	0	if $ret = $Win32::RASE::RasGetCountryInfo->Call($RASCTRYINFO, $dwSizeBuf)
3206	0	0	if $ret
3253	0	0	unless defined %Win32::RASE::TAPIEnumeration
3256	0	0	if $maxlen < length $Win32::RASE::TAPIEnumeration{$_}[0]
3287	0	0	unless defined %Win32::RASE::TAPIEnumeration
3288	0	0	exists $Win32::RASE::TAPIEnumeration{$CountryID} ? :
3306	0	0	unless defined %Win32::RASE::TAPIEnumeration
3307	0	0	exists $Win32::RASE::TAPIEnumeration{$CountryID} ? :
3326	0	0	unless defined %Win32::RASE::TAPIEnumeration
3327	0	0	exists $Win32::RASE::TAPIEnumeration{$CountryID} ? :
3333	0	0	unless my $dev = shift()
3345	0	0	unless $ret = $GetDefaultCommConfig->Call($dev, $lpCC, $lpdwSize)
3386	0	0	if $ret = $Win32::RASE::lineInitialize->Call($lphLineApp, $tapi32dll, $lpfnCallback, "Win32::RASE v.$Win32::RASE::VERSION\000", $lpdwNumDevs)
3393	0	0	wantarray ? :