| line |
true |
false |
branch |
|
62
|
112 |
242 |
unless ($args{'-type'} or $args{'-type_object'})
|
|
66
|
38 |
950 |
if ($args{'-characters'})
|
|
67
|
20 |
18 |
if ($args{'-type'}) { }
|
|
|
0 |
18 |
elsif ($args{'-type_object'}) { }
|
|
107
|
0 |
786 |
if (&looks_like_instance($arg, 'ARRAY')) { }
|
|
118
|
47 |
738 |
if (UNIVERSAL::can($self, '_type') and $self->_type == $MATRIX_CONSTANT)
|
|
142
|
0 |
9 |
if ($self->can('get_matchchar') and $self->get_matchchar and $missing eq $self->get_matchchar)
|
|
169
|
0 |
9 |
if ($self->can('get_matchchar') and $self->get_matchchar and $self->get_matchchar eq $gap)
|
|
224
|
3 |
1075 |
if ($@)
|
|
226
|
3 |
0 |
if (my(@char) = $self->get_char)
|
|
257
|
34 |
0 |
if ($to) { }
|
|
280
|
724 |
0 |
if ($to) { }
|
|
364
|
1978 |
0 |
if ($self and defined(my $id = $self->get_id))
|