XHTML results from the CPAN

App-Requirement-Arch
if(-f $filter_file)
	{
	@filter_data = do $filter_file or warn "Warning: Can't load fields filter file '$filter_file': $@\nUsing default filter.\n" ;
	}
else
	{
	warn "Warning: Can't find fields filter file '$filter_file', using default filter.\n" ;
	@filter_data = map {$_ => 1} @{$default_filter} ;
	}

return @filter_data ;
}

#-------------------------------------------------------------------------------

sub generate_text_document
{
my ($requirements_structure) = @_ ;

print DumpTree
	(
	$requirements_structure,
	'Requirements structure:',
	NO_NO_ELEMENTS => 1,
	FILTER => \&first_nsort_last_filter,
	FILTER_ARGUMENT => {AT_END => [qr/NOT_CATEGORIZED/, qr/NOT_FOUND/, qr/STATISTICS/]},
	) ;
}

#-------------------------------------------------------------------------------

sub generate_dhtml_document
{
my ($requirements_structure) = @_ ;

my $style ;
my $body = DumpTree
	(
	$requirements_structure,
	'Requirements structure',
	NO_NO_ELEMENTS => 1,
	RENDERER => 
		{
		NAME => 'DHTML',
		STYLE => \$style,
		BUTTON =>
			{
			COLLAPSE_EXPAND => 1,
			SEARCH => 1
			}
		},
		
	FILTER => \&first_nsort_last_filter,
	FILTER_ARGUMENT =>  {AT_END => [qr/NOT_CATEGORIZED/, qr/NOT_FOUND/, qr/STATISTICS/]},
	) ;
	
  
print <<EOT;
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html 
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
>

<html>

<!--
Automatically generated by Perl and Data::TreeDumper::DHTML
-->

<head>
<title>Requirements</title>

$style
</head>
<body>
$body
</body>
</html>
EOT
}
( run in 0.435 second using v1.01-cache-2.11-cpan-39bf76dae61 )