File Coverage

blib/lib/Const/Common/Generator.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	41	43	95.3

package Const::Common::Generator;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Text::MicroTemplate;

sub generate {
    my $class = shift;
    my %args = @_ == 1 ? %{$_[0]} : @_;

    my $package = $args{package};
    my @constants = @{ $args{constants} };

    my @consts;
    while (my ($name, $value) = splice @constants, 0, 2) {
        my $comment;
        if (ref $value) {
            $comment = $value->{comment};
            $value   = $value->{value};
        }

        push @consts, {
            name  => $name,
            value => $value,
            (defined($comment) ? (comment => $comment) : ()),
        };
    }

    my $gen = Text::MicroTemplate->new(
        template    => $class->_template,
        escape_func => sub {shift},
    )->build;

    $gen->(
        package => $package,
        consts  => \@consts
    )->as_string;
}

sub _template {
    <<'...';
? my %args = @_;
? use Scalar::Util qw/looks_like_number/;
package ;
use strict;
use warnings;
use utf8;

use Const::Common (
? for my $const (@{ $args{consts} }) {
? my $v = $const->{value};
    {name} ?> => ,{comment}) { ?> # {comment} ?>
? }
);

1;
...
}

1;
__END__