Branch Coverage

web/cgi-bin/yatt.lib/YATT/Util/VarExporter.pm
Criterion Covered Total %
branch 14 24 58.3


line true false branch
47 0 1 unless my $vars = $self->find_vars($page ||= $self->page_name) or $failok
52 1 2 if ($failok and ref $value and UNIVERSAL::can($value, 'varname') and UNIVERSAL::can($value, 'value')) { }
56 0 1 ref $_ ? :
60 2 0 if (not ref $value or ref $value eq 'ARRAY' or ref $value eq 'HASH') { }
67 0 2 if ref $value eq 'CODE'
73 2 0 ref $_[0] ? :
75 0 2 unless my $page_vars = $self->{'pages'}{$page}
77 2 0 if (not defined $varname) { }
94 2 1 if (not ref $value) { }
0 1 elsif (ref $value eq 'ARRAY') { }
0 1 elsif (ref $value eq 'CODE') { }
1 0 elsif (UNIVERSAL::can($value, 'varname') and UNIVERSAL::can($value, 'value')) { }