Data-TreeDumper-Renderer-DHTML
view release on metacpan or search on metacpan
var element = document.layers[tree_id];
if (element)
{
if (element.display == 'none')
{
element.display = 'block';
}
else
{
element.display = 'none';
}
}
}
}
-->
</script>
EOS
}
}
#-------------------------------------------------------------------------------------------
1 ;
__END__
=head1 NAME
Data::TreeDumper::Renderer::DHTML - DHTML renderer for B<Data::TreeDumper>
=head1 SYNOPSIS
use Data::TreeDumper ;
#-------------------------------------------------------------------------------
my $style ;
my $body = DumpTree
(
GetData(), 'Data',
DISPLAY_ROOT_ADDRESS => 1,
DISPLAY_PERL_ADDRESS => 1,
DISPLAY_PERL_SIZE => 1,
RENDERER =>
{
NAME => 'DHTML',
STYLE => \$style,
BUTTON =>
{
COLLAPSE_EXPAND => 1,
SEARCH => 1,
},
},
) ;
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>Data</title>
$style
</head>
<body>
$body
<p>
<img src='http://www.w3.org/Icons/valid-xhtml10' alt='Valid HTML 4.01!' height="15" width='44' />
</p>
</body>
</html>
EOT
=head1 DESCRIPTION
Simple DHTML renderer for B<Data::TreeDumper>.
Thanks to Stevan Little author of Tree::Simple::View
for giving me the idea and providing some code I could snatch.
=head1 EXAMPLE
Check B<dhtml_test.pl> for a complete example of two structure dumps within the same HTML file.
=head1 OPTIONS
=head2 Style
CSS style is dumped to $setup->{RENDERER}{STYLE} (a ref to a scalar) if it exists. This allows you to collect
all the CSS then output it at the top of the HTML code.
my $style ;
my $body = DumpTree
(
...
RENDERER =>
{
NAME => 'DHTML',
STYLE => \$style,
},
) ;
{RENDERER}{NO_STYLE} removes style section generation. This is usefull when you defined your styles by hand.
my $style ;
my $body = DumpTree
(
( run in 2.092 seconds using v1.01-cache-2.11-cpan-119454b85a5 )