view release on metacpan or  search on metacpan

lib/Aozora2Epub/Gensym.pm  view on Meta::CPAN

package Aozora2Epub::Gensym;
use strict;
use warnings;
use utf8;
use base qw/Exporter/;
our @EXPORT = qw(gensym);

our $VERSION = '0.05';

my $gensym_counter = 0;

sub gensym { sprintf("g%09d", $gensym_counter++); }

sub reset_counter {
    $gensym_counter = 0;
}

1;