blib/lib/XML/Grammar/Fiction/FromProto/Node/WithContent.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 9 | 12 | 75.0 |
branch | n/a | ||
condition | 0 | 2 | 0.0 |
subroutine | 3 | 4 | 75.0 |
pod | n/a | ||
total | 12 | 18 | 66.6 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package XML::Grammar::Fiction::FromProto::Node::WithContent; | ||||||
2 | |||||||
3 | 2 | 2 | 7 | use strict; | |||
2 | 2 | ||||||
2 | 60 | ||||||
4 | 2 | 2 | 7 | use warnings; | |||
2 | 2 | ||||||
2 | 70 | ||||||
5 | |||||||
6 | |||||||
7 | our $VERSION = '0.14.11'; | ||||||
8 | |||||||
9 | 2 | 2 | 8 | use MooX 'late'; | |||
2 | 3 | ||||||
2 | 11 | ||||||
10 | |||||||
11 | extends("XML::Grammar::Fiction::FromProto::Node"); | ||||||
12 | |||||||
13 | has 'children' => ( | ||||||
14 | is => 'rw' | ||||||
15 | ); | ||||||
16 | |||||||
17 | sub _get_childs | ||||||
18 | { | ||||||
19 | 0 | 0 | my $self = shift; | ||||
20 | |||||||
21 | 0 | my $childs = $self->children->contents(); | |||||
22 | |||||||
23 | 0 | 0 | return $childs || []; | ||||
24 | } | ||||||
25 | |||||||
26 | 1; | ||||||
27 | |||||||
28 | __END__ |