Condition Coverage

File:local/lib/perl5/Sub/Exporter.pm
Coverage:36.4%

line%coveragecondition
31100
Adec
00
11
$seen ||= {}
32100
Adec
00
11
$merge ||= {}
460
Adec
00
11
delete $merge{-'prefix'} || ''
470
Adec
00
11
delete $merge{-'suffix'} || ''
490
ABdec
000
011
1X1
&Params::Util::_CODELIKE($groups[$i][1]) or &Params::Util::_SCALAR0($groups[$i][1])
7350
Adec
00
11
$merge ||= {}
840
Adec
00
11
$$group_arg{-'prefix'} || ''
0
Adec
00
11
delete $$merge{-'prefix'} || ''
850
Adec
00
11
delete $$merge{-'suffix'} || ''
0
Adec
00
11
$$group_arg{-'suffix'} || ''
9633
ABdec
000
011
1X1
&Params::Util::_CODELIKE($exports) or &Params::Util::_SCALAR0($exports)
18733
ABdec
0X0
100
111
exists $$config{'into'} and exists $$config{'into_level'}
19050
Adec
00
11
delete $$config{'as'} || 'import'
24033
ABdec
0X0
100
111
exists $$config{'into'} and exists $$config{'into_level'}
24933
ABdec
0X0
100
111
exists $$config{'into'} and exists $$config{'into_level'}
27850
Adec
00
11
$$config{'groups'}{'default'} ||= []
281100
Adec
00
11
$$config{'groups'}{'all'} ||= [keys %{$$config{'exports'};}]
28350
Adec
00
11
$$config{'generator'} ||= \&default_generator
28450
Adec
00
11
$$config{'installer'} ||= \&default_installer
29733
ABdec
0X0
100
111
exists $$special{'into'} and exists $$special{'into_level'}
31233
ABdec
000
011
1X1
delete $$special{'generator'} || $$config{'generator'}
31333
ABdec
000
011
1X1
delete $$special{'installer'} || $$config{'installer'}
35267
ABdec
0X0
100
111
$import_arg and &Params::Util::_CODELIKE($import_arg)