view release on metacpan or  search on metacpan

lib/Constant/Generate.pm  view on Meta::CPAN

		return CONST_SIMPLE;
	} elsif ($utype =~ /bit/i) {
		return CONST_BITFLAG;
	} elsif ($utype =~ /str/i) {
		return CONST_STRING;
	} else {
		die "Unrecognized type '$utype'";
	}
}

sub _getopt(\%$) {
	my ($h,$opt) = @_;
	foreach ($opt,"-$opt") { return delete $h->{$_} if exists $h->{$_} }
}

sub import {
	my ($cls,$symspecs,%opts) = @_;
	return 1 unless $symspecs;
	
	my $reqpkg = caller();
	my $type = utype2const(_getopt(%opts, "type"));

lib/Constant/Generate/Dualvar.pm  view on Meta::CPAN

package Constant::Generate::Dualvar;
use strict;
use warnings;
use Scalar::Util;
use base qw(Exporter);

our @EXPORT_OK = qw(CG_dualvar);
our $USE_SCALAR_UTIL;

sub CG_dualvar($$);

BEGIN {
    $USE_SCALAR_UTIL = eval 'use List::Util::XS 1.20; $List::Util::XS::VERSION;';
    if($USE_SCALAR_UTIL) {
        *CG_dualvar = \&Scalar::Util::dualvar;
    } else {
        require Constant::Generate::Stringified::_Overloaded;
        warn "Scalar::Util::XS not available. Falling back to using overload";
        *CG_dualvar = sub($$) {
            my ($num,$string) = @_;