File Coverage

blib/lib/Role/TinyCommons/Tree/NodeMethods.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Role::TinyCommons::Tree::NodeMethods;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2021-05-06'; # DATE
5             our $DIST = 'Role-TinyCommons-Tree'; # DIST
6             our $VERSION = '0.126'; # VERSION
7              
8 2     2   1247 use Role::Tiny;
  2         3  
  2         10  
9 2     2   244 use Role::Tiny::With;
  2         4  
  2         105  
10              
11             with 'Role::TinyCommons::Tree::Node';
12              
13             BEGIN {
14 2     2   10 no strict 'refs';
  2         3  
  2         197  
15 2     2   896 require Code::Includable::Tree::NodeMethods;
16 2         14 for (grep {/\A[a-z]\w+\z/} keys %Code::Includable::Tree::NodeMethods::) {
  68         132  
17 42         55 *{$_} = \&{"Code::Includable::Tree::NodeMethods::$_"};
  42         152  
  42         83  
18             }
19             }
20              
21             1;
22             # ABSTRACT: Role that provides tree node methods
23              
24             __END__