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 0.1001;
6 11     11   82 use HTML::Blitz::pragma;
  11         23  
  11         80  
7 11     11   6807 use constant ();
  11         24  
  11         2491  
8              
9 44 50   44   203 method import($class: @names) {
  44         109  
  44         239  
  44         76  
10 44         1239 @_ = (
11             $class,
12             { map +($_ => ':' . tr/_/-/r), @names },
13             );
14 44         3929 goto &{constant->can('import')};
  44         20854  
15             }
16              
17             1