1use strict; 2use warnings; 3use ClearSilver; 4use Data::ClearSilver::HDF; 5use IPC::Cmd; 6 7local $Data::Dumper::Terse = 1; 8local $Data::Dumper::Deepcopy = 1; 9 10my $loadpath = 'benchmark/template'; 11my $template = 'index.cs'; 12my $hdf_file = 'var.hdf'; 13 14my $var = do 'benchmark/data/var.pl'; 15my $hdf = Data::ClearSilver::HDF->hdf($var); 16$hdf->setValue('hdf.loadpaths.0', $loadpath); 17$hdf->writeFile($hdf_file); 18my $cs = ClearSilver::CS->new($hdf); 19 20if (!$cs->parseFile($template) && 0) { 21 my $buffer = ''; 22 my $file = qq{$loadpath/$template}; 23 my @run = ( 24 command => [ 'cstest', '-v', $hdf_file, $file ], 25 buffer => \$buffer, 26 timeout => 1, 27 ); 28 IPC::Cmd::run( @run ); 29 die $buffer; 30} 31print $cs->render; 32 33