| line |
true |
false |
branch |
|
23
|
2 |
2 |
unless my $flag = shift() |
|
26
|
2 |
0 |
if ($flag eq '-base') { } |
|
|
0 |
0 |
elsif ($flag eq '-strict') { } |
|
|
0 |
0 |
elsif (my $file = $flag and not $flag->can('new')) { } |
|
38
|
2 |
0 |
if ($flag) |
|
47
|
0 |
2 |
if ($feature) |
|
54
|
0 |
14 |
unless my $class = ref $self || $self and $attrs |
|
56
|
0 |
14 |
if ref $default and ref $default ne 'CODE' |
|
59
|
0 |
14 |
ref $attrs eq 'ARRAY' ? : |
|
60
|
0 |
14 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
67
|
0 |
14 |
if (not defined $default) { } |
|
78
|
14 |
0 |
ref $default eq 'CODE' ? : |
|
90
|
0 |
14 |
if $ENV{'AUTOSUGGEST_OBJ_DEBUG'} |
|
92
|
0 |
14 |
unless eval "$code;1" |
|
|
0 |
0 |
if exists $_[0]{'UA'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'base_url'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'domain'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'json'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'raw'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'strip_html'} |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if exists $_[0]{'url'} |
|
|
0 |
0 |
if (@_ == 1) |
|
98
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
0 |
@_ ? : |