File Coverage

blib/lib/HTML/Blitz/Atom.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 17 18 94.4


line stmt bran cond sub pod time code
1             # This code can be redistributed and modified under the terms of the GNU Affero
2             # General Public License as published by the Free Software Foundation, either
3             # version 3 of the License, or (at your option) any later version.
4             # See the "COPYING" file for details.
5             package HTML::Blitz::Atom;
6 11     11   78 use HTML::Blitz::pragma;
  11         20  
  11         84  
7 11     11   4793 use constant ();
  11         30  
  11         1646  
8              
9             our $VERSION = '0.07';
10              
11 44 50   44   182 method import($class: @names) {
  44         91  
  44         143  
  44         72  
12 44         1092 @_ = (
13             $class,
14             { map +($_ => ':' . tr/_/-/r), @names },
15             );
16 44         113 goto &{constant->can('import')};
  44         7704  
17             }
18              
19             1