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   98 use Mu;
  12         23  
  12         81  
4              
5             ro count => (default => '001');
6              
7             sub gensym {
8 12     12 0 3038 my ($self) = @_;
9 12         69 my $sym = '__B_'.$self->{count}++;
10 12         52 return $sym;
11             }
12              
13             1;