| 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)) |