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-07-02'; # DATE
5             our $DIST = 'Role-TinyCommons-Tree'; # DIST
6             our $VERSION = '0.127'; # VERSION
7              
8 2     2   1485 use Role::Tiny;
  2         5  
  2         9  
9 2     2   251 use Role::Tiny::With;
  2         5  
  2         114  
10              
11             with 'Role::TinyCommons::Tree::Node';
12              
13             BEGIN {
14 2     2   11 no strict 'refs';
  2         3  
  2         222  
15 2     2   1039 require Code::Includable::Tree::NodeMethods;
16 2         15 for (grep {/\A[a-z]\w+\z/} keys %Code::Includable::Tree::NodeMethods::) {
  78         163  
17 52         69 *{$_} = \&{"Code::Includable::Tree::NodeMethods::$_"};
  52         204  
  52         111  
18             }
19             }
20              
21             1;
22             # ABSTRACT: Role that provides tree node methods
23              
24             __END__