File Coverage

blib/lib/Babble/SymbolGenerator.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 8 9 88.8


line stmt bran cond sub pod time code
1             package Babble::SymbolGenerator;
2              
3 12     12   89 use Mu;
  12         28  
  12         104  
4              
5             ro count => (default => '001');
6              
7             sub gensym {
8 12     12 0 3126 my ($self) = @_;
9 12         76 my $sym = '__B_'.$self->{count}++;
10 12         53 return $sym;
11             }
12              
13             1;