#!/usr/bin/perl

use strict;
use FindBin;
use lib ( "../lib", $FindBin::Bin );
use Ravenel;
use Ravenel::Document;

my $obj = new Ravenel( { 
	#'docroot' => $FindBin::Bin,
	'debug'   => $ARGV[0],
	'debug2'  => $ARGV[1],
	'dynamic' => 0,
} );

my Ravenel::Document $doc = $obj->add_document( {
	'data'         => qq(
	<html>
		<r:Foo:test abc="def" depth="1">
			<div>"Hello" 
				<r:replace name="moo" depth="0">
					{c} {b} {a} {b}
				</r:replace> 
			</div>
		</r:Foo:test>
	</html>
	), 

	'prefix'       => 'r:',
	'content_type' => 'html',
	'name' => 'test',
	#'path' => '/foo.html',
} );

my $res = $doc->parse( );
#print $res . "\n";

eval $res;

print $@ if ( $@ );

print test->get_html_content(
{
	'moo' => [ 
		{ 'a' => 'bar', 'b' => 'cow', 'c' => 'jar' },
		{ 'a' => 'zoo', 'b' => 'zaz', 'c' => 'zar' },
	],
}
) . "\n";
