File Coverage

blib/lib/constant/string/uc.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 22 23 95.6


line stmt bran cond sub pod time code
1             package constant::string::uc;
2              
3 4     4   250122 use strict;
  4         6  
  4         105  
4 4     4   13 use warnings;
  4         9  
  4         189  
5 4     4   1093 use utf8;
  4         651  
  4         18  
6 4     4   97 use constant ();
  4         8  
  4         460  
7              
8             our $VERSION = '2026.267';
9              
10             sub import {
11 4     4   71 my ($class, @args) = @_;
12 4         9 my $caller = caller;
13              
14 4         48 my %constants = map
15             +(join( '::', "$caller", uc($_) ), $_), @args;
16              
17 4 50       1721 constant->import( \%constants ) if %constants;
18              
19             }
20              
21             1;
22              
23             __END__