File Coverage

blib/lib/XML/Grammar/Fiction/FromProto/Node.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 20 80.0


line stmt bran cond sub pod time code
1             package XML::Grammar::Fiction::FromProto::Node;
2              
3 2     2   13 use strict;
  2         4  
  2         68  
4 2     2   10 use warnings;
  2         4  
  2         51  
5              
6 2     2   11 use List::Util ();
  2         3  
  2         79  
7              
8              
9             our $VERSION = '0.14.10';
10              
11 2     2   11 use MooX 'late';
  2         4  
  2         16  
12              
13             sub _short_isa
14             {
15 0     0     my $self = shift;
16 0           my $isa_classish = shift;
17              
18             return
19 0           $self->isa(
20             "XML::Grammar::Fiction::FromProto::Node::$isa_classish"
21             );
22             }
23              
24             1;
25              
26             __END__