File Coverage

blib/lib/HTML/Transmorgify/Symbols.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1              
2             package HTML::Transmorgify::Symbols;
3              
4 9     9   21341 use strict;
  9         14  
  9         307  
5 9     9   42 use warnings;
  9         15  
  9         992  
6             require Exporter;
7              
8             our @ISA = qw(Exporter);
9             our @EXPORT = qw(new_hash new_array);
10              
11             my $counter = 0;
12             sub new_hash
13             {
14 8     8 0 72 my $sym = sprintf("hash_%5d", $counter++);
15 9     9   41 no strict 'refs';
  9         13  
  9         965  
16 8         20 my $h = \%{__PACKAGE__."::$sym"};
  8         93  
17 8         37 %$h = @_;
18 8         90 return $h;
19             }
20              
21             sub new_array
22             {
23 1     1 0 2984 my $sym = sprintf("array_%5d", $counter++);
24 9     9   43 no strict 'refs';
  9         16  
  9         2989  
25 1         3 my $a = \@{__PACKAGE__."::$sym"};
  1         12  
26 1         3 @$a = @_;
27 1         4 return $a;
28             }
29              
30             1;