| line |
true |
false |
branch |
|
61
|
112 |
242 |
unless ($args{'-type'} or $args{'-type_object'})
|
|
65
|
38 |
950 |
if ($args{'-characters'})
|
|
66
|
20 |
18 |
if ($args{'-type'}) { }
|
|
|
0 |
18 |
elsif ($args{'-type_object'}) { }
|
|
106
|
0 |
786 |
if (&looks_like_instance($arg, 'ARRAY')) { }
|
|
117
|
47 |
738 |
if (UNIVERSAL::can($self, '_type') and $self->_type == $MATRIX_CONSTANT)
|
|
141
|
0 |
9 |
if ($self->can('get_matchchar') and $self->get_matchchar and $missing eq $self->get_matchchar)
|
|
168
|
0 |
9 |
if ($self->can('get_matchchar') and $self->get_matchchar and $self->get_matchchar eq $gap)
|
|
223
|
3 |
1075 |
if ($@)
|
|
225
|
3 |
0 |
if (my(@char) = $self->get_char)
|
|
256
|
34 |
0 |
if ($to) { }
|
|
279
|
724 |
0 |
if ($to) { }
|
|
363
|
1978 |
0 |
if ($self and defined(my $id = $self->get_id))
|