=head1 SYNOPSIS
+Create an L<HTML::Zoom> instance:
+
use HTML::Zoom;
my $root = HTML::Zoom
->from_html(<<MAIN);
<head>
<title>Default Title</title>
</head>
- <body>
+ <body bad_attr='junk'>
Default Content
</body>
</html>
MAIN
+Create a new attribute on the C<body> tag:
+
+ $root = $root
+ ->select('body')
+ ->set_attribute(class=>'main');
+
+Add a extra value to an existing attribute:
+
+ $root = $root
+ ->select('body')
+ ->add_to_attribute(class=>'one-column');
+
+Set the content of the C<title> tag:
+
+ $root = $root
+ ->select('title')
+ ->replace_content('Hello World');
+
+Set content from another L<HTML::Zoom> instance:
+
my $body = HTML::Zoom
->from_html(<<BODY);
<div id="stuff">
</div>
BODY
- my $output = $root
- ->select('title')
- ->replace_content('Hello World')
+ $root = $root
->select('body')
- ->replace_content($body)
- ->then
- ->set_attribute(class=>'main')
- ->then
- ->add_to_attribute(class=>'one-column')
- ->then
- ->set_attribute(id=>'top')
- ->then
- ->add_to_attribute(id=>'deleteme')
- ->then
- ->remove_attribute({name=>'id'})
+ ->replace_content($body);
+
+Set an attribute on multiple matches:
+
+ $root = $root
->select('p')
- ->set_attribute(class=>'para')
- ->select('#p2')
- ->set_attribute(class=>'para2')
- ->to_html;
+ ->set_attribute(class=>'para');
+
+Remove an attribute:
+
+ $root = $root
+ ->select('body')
+ ->remove_attribute('bad_attr');
will produce:
=begin testinfo
+ my $output = $root->to_html;
my $expect = <<HTML;
=end testinfo
</head>
<body class="main one-column"><div id="stuff">
<p class="para">Well Now</p>
- <p id="p2" class="para2">Is the Time</p>
+ <p id="p2" class="para">Is the Time</p>
</div>
</body>
</html>
my $head_or_cut = qr[head|cut]x;
if($string=~m/^=head1 SYNOPSIS\n(.*?)^=$head_or_cut/sm) {
my $extracted = $1;
- $extracted=~s/^\S.+?$//m; # wipe out non code lines in pod
my $begin_end = qr[begin|end]x;
$extracted=~s/\n^=$begin_end testinfo\n\n//smg; # remove test block
+ $extracted=~s/^\S.+?$//smg; # wipe out non code lines in pod
return $extracted;
} else {
return;
use warnings FATAL => 'all';
use Test::More qw(no_plan);
+
+
use HTML::Zoom;
my $root = HTML::Zoom
->from_html(<<MAIN);
<head>
<title>Default Title</title>
</head>
- <body>
+ <body bad_attr='junk'>
Default Content
</body>
</html>
MAIN
+
+
+$root = $root
+ ->select('body')
+ ->set_attribute(class=>'main');
+
+
+
+$root = $root
+ ->select('body')
+ ->add_to_attribute(class=>'one-column');
+
+
+
+$root = $root
+ ->select('title')
+ ->replace_content('Hello World');
+
+
+
my $body = HTML::Zoom
->from_html(<<BODY);
<div id="stuff">
</div>
BODY
-my $output = $root
- ->select('title')
- ->replace_content('Hello World')
+$root = $root
->select('body')
- ->replace_content($body)
- ->then
- ->set_attribute(class=>'main')
- ->then
- ->add_to_attribute(class=>'one-column')
- ->then
- ->set_attribute(id=>'top')
- ->then
- ->add_to_attribute(id=>'deleteme')
- ->then
- ->remove_attribute({name=>'id', value=>'deleteme'})
+ ->replace_content($body);
+
+
+
+$root = $root
->select('p')
- ->set_attribute(class=>'para')
- ->select('#p2')
- ->set_attribute(class=>'para2')
- ->to_html;
+ ->set_attribute(class=>'para');
+
+
+
+$root = $root
+ ->select('body')
+ ->remove_attribute('bad_attr');
+my $output = $root->to_html;
my $expect = <<HTML;
<html>
<head>
<title>Hello World</title>
</head>
- <body class="main one-column" id="top"><div id="stuff">
+ <body class="main one-column"><div id="stuff">
<p class="para">Well Now</p>
- <p id="p2" class="para2">Is the Time</p>
+ <p id="p2" class="para">Is the Time</p>
</div>
</body>
</html>