| blib/lib/Perl6/Pod/To.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 28 | 21.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 281 | 0 | 0 | 0 | $export_method and UNIVERSAL::can($n, $export_method) |
| line | l | !l | condition |
|---|---|---|---|
| 39 | 0 | 2 | $self->{'out'} || \*STDOUT |
| 83 | 5 | 0 | shift() || (return) |
| 169 | 0 | 0 | $self->_make_dom_node($n) || (return) |
| 220 | 2 | 0 | $el->name || die(q[Can't get element name for ] . Dumper($el)) |
| 260 | 0 | 0 | Perl6::Pod::Utl::parse_pod(ref $text ? $$text : $text, @_) || (return 'Error') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 28 | 0 | 2 | 0 | ref $class || $class |
| 69 | 0 | 0 | 0 | UNIVERSAL::isa($n, 'Perl6::Pod::Block') or UNIVERSAL::isa($n, 'Perl6::Pod::Lex::Block') |
| 100 | 0 | 0 | 0 | $$map{$name . '<>'} || $map->{'*<>'} |
| 118 | 5 | 0 | 0 | $map->{$name} || ($name eq uc $name ? 'Perl6::Pod::Block::SEMANTIC' : $map->{'*'}) |
| 214 | 2 | 0 | 0 | shift() || croak('empty object !') |