File Coverage

blib/lib/Scalar/Constant.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	40	41	97.5

package Scalar::Constant;

use strict;
use Carp;
use Scalar::Quote 'quote';
use Scalar::Util qw(looks_like_number);

use vars qw( $VERSION );
$VERSION = 0.001_005;


sub import {
    my $module = shift;
    my %constant = @_
      or return;

    my $calling_package = (caller)[0];
    my @code;
    while(my($name, $value) = each %constant) {
        if(ref($value)) {
            croak 'References are not supported';
        }
        if(! looks_like_number($value)) {
            $value = quote($value);
        }
        push @code, sprintf('*%s::%s = \ %s;', $calling_package, $name, $value);
    }

    my $code = join("\n", @code);
    eval $code
      or confess "This shouldn't happen: $@";
}

1; # Magic true value required at end of module
__END__