| line |
true |
false |
branch |
|
68
|
25 |
218 |
if (scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
|
218 |
0 |
elsif (my(%hash) = &looks_like_hash(@_)) { }
|
|
128
|
1443 |
0 |
if (&looks_like_object($meta_obj, $META_CONSTANT))
|
|
130
|
321 |
1122 |
unless ($meta{$id})
|
|
134
|
0 |
1443 |
if ($self->is_identifiable)
|
|
173
|
0 |
0 |
if ($meta{$id})
|
|
175
|
0 |
0 |
if ($meta{$id}[$i]->get_id == $meta_id)
|
|
181
|
0 |
0 |
unless ($meta{$id} and @{$meta{$id};})
|
|
201
|
71 |
729 |
if (my($meta) = @{$self->get_meta($predicate);}) { }
|
|
223
|
0 |
109 |
if ($meta and @{$meta;}) { }
|
|
278
|
110 |
0 |
if ($tag =~ qr/^[a-zA-Z]+\:?[a-zA-Z_]*$/) { }
|
|
304
|
9858 |
104 |
if (defined $name) { }
|
|
329
|
0 |
14343 |
if (scalar @_ == 1 and ref $_[0] eq 'HASH') { }
|
|
|
14343 |
0 |
elsif (scalar @_ % 2 == 0) { }
|
|
341
|
1496 |
14342 |
if ($key =~ /$fully_qualified_attribute_regex/)
|
|
343
|
0 |
1496 |
if ($prefix ne 'xmlns' and not exists $namespaces{$prefix})
|
|
370
|
1 |
0 |
if ($id =~ qr/^[a-zA-Z][a-zA-Z0-9\-_\.]*$/) { }
|
|
397
|
2 |
108 |
if ($uri)
|
|
420
|
9 |
108 |
if ($url)
|
|
443
|
29 |
80 |
if ($attrs and &looks_like_instance($attrs, 'HASH'))
|
|
470
|
2776 |
15014 |
if ($prefix) { }
|
|
494
|
0 |
0 |
unless ($ns_uri)
|
|
501
|
0 |
0 |
if ($namespaces->{$prefix} eq $ns_uri)
|
|
529
|
52459 |
15393 |
if (@_)
|
|
557
|
0 |
51659 |
unless $predicate
|
|
559
|
432 |
51227 |
if ($meta) { }
|
|
582
|
4 |
1531 |
if (my $tagstring = $tag{$self->get_id}) { }
|
|
|
1531 |
0 |
elsif (&looks_like_implementor($self, '_tag')) { }
|
|
609
|
213 |
26003 |
unless ($attributes{$id})
|
|
612
|
25719 |
497 |
if (defined $attributes{$id}{'label'}) { }
|
|
643
|
0 |
0 |
if (@{$meta;})
|
|
648
|
0 |
0 |
if ($has_contents) { }
|
|
649
|
0 |
0 |
if $closeme
|
|
652
|
0 |
0 |
$closeme ? :
|
|
711
|
0 |
15014 |
if ($attrs->{'label'}) { }
|
|
721
|
15014 |
0 |
unless ($attrs->{'id'})
|
|
724
|
0 |
15014 |
if (defined $self->is_identifiable and not $self->is_identifiable)
|
|
729
|
0 |
15014 |
if (not @{$self->get_meta;} and $attrs->{'about'})
|
|
734
|
0 |
15014 |
if ($self->can('get_taxa'))
|
|
735
|
0 |
0 |
if (my $taxa = $self->get_taxa) { }
|
|
736
|
0 |
0 |
if &looks_like_instance($taxa, 'Bio::Phylo')
|
|
745
|
0 |
15014 |
if ($self->can('get_taxon'))
|
|
746
|
0 |
0 |
if (my $taxon = $self->get_taxon) { }
|
|
756
|
15014 |
0 |
unless ($self->is_ns_suppressed)
|
|
762
|
0 |
15014 |
$arg ? :
|
|
780
|
13592 |
1424 |
if (my $id = $id{$self->get_id}) { }
|
|
814
|
3 |
151 |
if (my $base = $attrs->{'xml:base'})
|
|
826
|
2 |
149 |
if ($self->_type == 2) { }
|
|
868
|
0 |
0 |
unless (&looks_like_object($dom, 18))
|
|
884
|
0 |
0 |
if (&looks_like_implementor($self, 'get_sets'))
|
|
955
|
0 |
3489 |
ref $other ? :
|
|
980
|
0 |
0 |
if ($self->can('get_entities'))
|
|
982
|
0 |
0 |
if (&looks_like_implementor($ent, 'to_xml'))
|
|
988
|
0 |
0 |
if ($xml) { }
|
|
1014
|
0 |
0 |
if (&looks_like_object($dom, 18)) { }
|
|
1016
|
0 |
0 |
if ($self->can('get_entities'))
|
|
1018
|
0 |
0 |
if (&looks_like_implementor($ent, 'to_dom'))
|
|
1053
|
0 |
0 |
if $self->get_name
|
|
1054
|
0 |
0 |
if $self->get_link
|
|
1097
|
25926 |
0 |
if (not $self->isa('DBIx::Class::Core'))
|