Cindy
view release on metacpan or search on metacpan
$data = q|<?xml version="1.0" encoding="UTF-8"?>
<data>
<filter>
<third>3</third>
<first>1</first>
<second>2</second>
</filter>
</data>
|;
$doc = q|<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Tests the cindy repeat condition</title>
</head>
<body>
<table>
<tr>
<th>First</th>
<tr>
<th>Third</th>
<td class="third">Value</td>
</tr>
</table>
</body>
</html>
|;
$expected = q|<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>Tests the cindy repeat condition</title></head>
<body>
<table>
<tr>
<th>First</th>
<td class="first" bgcolor="red">1</td>
</tr>
<tr>
( run in 0.486 second using v1.01-cache-2.11-cpan-49f99fa48dc )