File Coverage

blib/lib/Template/AsGraph.pm

Criterion	Covered	Total	%
statement	18	40	45.0
branch	0	10	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	1	1	100.0
total	25	62	40.3

package Template::AsGraph;

use warnings;
use strict;
use Graph::Easy;
use Template;
use Carp 'croak';
use File::Spec;

our $VERSION = '0.02';


sub graph {
	# get parameters
	my $self     = shift;
	my $filename = shift or croak "you must specify a template name";
	my $config   = (@_ ? shift : {});
	my $vars     = (@_ ? shift : {});

	unless (exists $config->{OUTPUT}) {
		$config->{OUTPUT} ||= File::Spec->devnull;
	}

	# setup our own context object. This can be
	# overridable by user's $config, assuming
	# they know what they're doing
	$Template::Config::CONTEXT = 'Template::AsGraph::Context';

	# process the given template, to populate
	# context's tree structure
	my $template = Template->new($config);
	$template->process($filename, $vars)
		|| croak $template->error;

	# grab our shiny tree and make it a graph!
	my $tree = $template->context->tree;

	my $graph = Graph::Easy->new();
	foreach my $child (keys %{$tree}) {
		_new_node($graph, $filename, $tree->{$child});
	}

	return $graph;
}


# this internal method recursively fills
# our graph with appropriate node values
sub _new_node {
	my ($graph, $name, $tree) = (@_);

	# add current node to graph
	my $node = $graph->add_node($name);

	# link each child to it
	foreach my $child (keys %{$tree}) {
		my $child_node = _new_node($graph, $child, $tree->{$child});
		$graph->add_edge($node, $child_node);
	}

	return $node;
}

42;
__END__