File Coverage

blib/lib/Var/Extract.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	4	8	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	39	45	86.6

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!";
		$key = substr($key,1);
		$_[$i] = $h->{$key};
	}
}

sub vars_from_getters {
	my $prefix = shift;
	my $obj;
	if (ref $prefix) {
		$obj = $prefix;
		$prefix = "";
	} else {
		$obj = shift;
	}
	for my $i (0..$#_) {
		my $key = var_name(1, \$_[$i]);
		ord($key) == ord('$') or die __PACKAGE__.": must be scalar!";
		$key = $prefix . substr($key,1);
		$_[$i] = $obj->$key if ($obj->can($key))
	}

}
1;

__END__