File Coverage

blib/lib/Language/MinCaml/Util.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package Language::MinCaml::Util;
2 5     5   26 use strict;
  5         11  
  5         181  
3 5     5   25 use base qw(Exporter);
  5         10  
  5         773  
4              
5             our @EXPORT = qw(create_temp_ident_name);
6              
7             my $ident_count = 0;
8              
9             sub create_temp_ident_name {
10 3     3 0 8 my $type = shift;
11 3         15 return "$type->{kind}" . $ident_count++;
12             }
13              
14             1;