view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

abstract:           Assign lexical scalar values from container types
author:
    - M. Nunberg <mnunberg@haskalah.org>
license:            perl
distribution_type:  module
configure_requires:
    ExtUtils::MakeMaker:  0
build_requires:
    ExtUtils::MakeMaker:  0
requires:
    PadWalker:   0
    Test::More:  0
no_index:
    directory:
        - t
        - inc
generated_by:       ExtUtils::MakeMaker version 6.56
meta-spec:
    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
    version:  1.4

Makefile.PL  view on Meta::CPAN

    NAME                => 'Var::Extract',
    AUTHOR              => q{M. Nunberg <mnunberg@haskalah.org>},
    VERSION_FROM        => 'lib/Var/Extract.pm',
    ABSTRACT_FROM       => 'lib/Var/Extract.pm',
    ($ExtUtils::MakeMaker::VERSION >= 6.3002
      ? ('LICENSE'=> 'perl')
      : ()),
    PL_FILES            => {},
    PREREQ_PM => {
        'Test::More' => 0,
		'PadWalker'	 => 0,
    },
    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean               => { FILES => 'Var-Extract-*' },
);

lib/Var/Extract.pm  view on Meta::CPAN

package Var::Extract;
use strict; 
use warnings;
use PadWalker qw(var_name);

use base qw(Exporter);
our @EXPORT_OK = qw(vars_from_hash vars_from_getters);
our $VERSION = "0.02";

sub vars_from_hash {
	my $h = shift;
	for my $i (0..$#_) {
		my $key = var_name(1, \$_[$i]);
		ord($key) == ord('$') or die __PACKAGE__.": must be scalar!";