| line | true | false | branch | 
 
| 57 | 102 | 355 | @_ && ref $_[0] eq 'HASH' ? : | 
 
| 63 | 454 | 0 | defined $self ? : | 
 
| 78 | 0 | 8 | unless @_ | 
 
| 84 | 8 | 0 | if $handlers and @$handlers | 
 
| 98 | 58 | 13 | if (@_) { } | 
 
|  | 11 | 2 | elsif ($type eq 'HASH') { } | 
 
| 100 | 63 | 0 | defined $_ ? : | 
 
|  | 0 | 58 | ref $_[0] ? : | 
 
| 107 | 52 | 6 | if ($type eq "HASH") | 
 
| 113 | 2 | 56 | if $handlers and @$handlers | 
 
| 131 | 37 | 0 | @_ == 1 ? : | 
 
| 138 | 37 | 0 | if ($type eq "HASH") | 
 
| 153 | 2 | 0 | $type eq 'HASH' ? : | 
 
| 163 | 27 | 0 | $type eq 'HASH' ? : | 
 
| 174 | 58 | 3 | if (not @_) { } | 
 
| 181 | 0 | 58 | if (&blessed($type) and $type->isa($emod)) { } | 
 
| 201 | 1 | 2 | if (not @_ and &blessed($info) and $info->isa($emod) and $info->type eq $type) { } | 
 
| 206 | 0 | 2 | @_ && ref $_[0] eq 'HASH' ? : | 
 
| 219 | 16 | 278 | if (@_) { } | 
 
| 221 | 1 | 15 | if (wantarray) { } | 
 
| 223 | 0 | 1 | if $@ | 
 
| 228 | 14 | 1 | if $@ | 
 
| 249 | 4 | 61 | if (@_) { } | 
 
|  | 51 | 10 | elsif ($type eq 'HASH') { } | 
 
| 254 | 1 | 3 | $type eq 'HASH' ? : | 
 
| 279 | 0 | 61 | if (@_) { } | 
 
|  | 55 | 6 | elsif ($type eq 'HASH') { } | 
 
| 284 | 0 | 0 | $type eq 'HASH' ? : | 
 
| 304 | 2 | 1 | if (ref $self and &reftype($self) eq "HASH") | 
 
| 326 | 1 | 1860 | if ($self and $ref and $ref eq "HASH" and $self->{'messages'}) | 
 
| 328 | 1 | 0 | if &reftype($self->{'messages'}) eq "HASH" | 
 
| 331 | 1861 | 1 | unless defined $format | 
 
| 379 | 4 | 6 | @_ ? : | 
 
| 401 | 61 | 8 | if (ref $self and &reftype($self) eq 'HASH') { } | 
 
| 408 | 1 | 60 | unless ref $list eq "ARRAY" | 
 
| 415 | 1 | 7 | unless ref $list eq "ARRAY" | 
 
| 422 | 3 | 66 | if (@_) | 
 
| 423 | 0 | 3 | if ($_[0] eq 'before') { } | 
 
|  | 1 | 2 | elsif ($_[0] eq 'after') { } | 
 
| 456 | 6 | 6 | if (not ref $handler) { } | 
 
|  | 6 | 0 | elsif (ref $handler eq 'CODE') { } | 
 
| 457 | 2 | 4 | if ($handler eq 'warn') { } | 
 
|  | 0 | 4 | elsif ($handler eq 'none') { } | 
 
| 480 | 2 | 8 | if not @args or @args == 1 and not $args[0] | 
 
| 503 | 278 | 278 | if $method eq "DESTROY" | 
 
| 506 | 1 | 277 | if (wantarray) { } | 
 
| 508 | 0 | 1 | if $@ | 
 
| 513 | 10 | 267 | if $@ |