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
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   82 use HTML::Blitz::pragma;
  11         22  
  11         93  
7 11     11   4627 use constant ();
  11         29  
  11         1710  
8              
9             our $VERSION = '0.08';
10              
11 44 50   44   193 method import($class: @names) {
  44         91  
  44         160  
  44         65  
12 44         985 @_ = (
13             $class,
14             { map +($_ => ':' . tr/_/-/r), @names },
15             );
16 44         188 goto &{constant->can('import')};
  44         7291  
17             }
18              
19             1