File Coverage

blib/lib/Catmandu/Fix/Datahub/Util.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	12	31	38.7

package Catmandu::Fix::Datahub::Util;

use strict;

use Catmandu::Sane;

use Exporter qw(import);

our @EXPORT_OK = qw(declare_source walk);

##
# For a source $var, that is a path parameter to a fix,
# use walk() to get the value and return the generated
# $perl code.
# @param $var
# @param $declared_var
# @return $fixer emit code
sub declare_source {
    my ($fixer, $var, $declared_var) = @_;

	my $perl = '';

    my $var_path = $fixer->split_path($var);
	my $var_key = pop @$var_path;
	$perl .= walk($fixer, $var_path, $var_key, $declared_var);
	return $perl;
}

##
# Walk through a path ($path) until at
# $key. Set $h = $val in the fixer code.
# $h must be declared before calling walk()
# This has the effect of assigning $val (the value of the leaf
# node you're walking to) to $h, so you can use $h in your fix.
# @param $path
# @param $key
# @param $h
# @return $fixer emit code
sub walk {
	my ($fixer, $path, $key, $h) = @_;

	my $perl = '';

	$perl .= $fixer->emit_walk_path(
		$fixer->var,
		$path,
		sub {
			my $var = shift;
			$fixer->emit_get_key(
				$var,
				$key,
				sub {
					my $val = shift;
					"${h} = ${val};";
				}
			);
		}
	);

	return $perl;
}

1;
__END__

=encoding utf-8

=head1 NAME

Catmandu::Fix::Datahub::Util - Utility functions for the Datahub project

=head1 AUTHOR

Pieter De Praetere E<lt>[e-mail]<gt>

=head1 COPYRIGHT

Copyright 2017- PACKED vzw

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L<Catmandu::Fix::Datahub>

=cut