view release on metacpan or search on metacpan
<p></P>
EOD
my $expected = <<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
TableBracket.pm view on Meta::CPAN
$temp->round("Tom","Curly");
# Display the table in HTML format
print $temp->as_html;
# Display the table in XHTML format
print $temp->as_xhtml;
# Display the table in .dot format (name of graph as argument)
print $temp->as_directed_graph_source("Tournament");
view release on metacpan or search on metacpan
t/24_xhtml.t view on Meta::CPAN
# Standard HTML mode
$table = $t->render($d);
report $table, "html1";
is($table, $result{html1}, "html1");
# XHTML mode
$table = $t->render($d, { xhtml => 1 });
report $table, "xhtml1";
is($table, $result{xhtml1}, "xhtml1");
done_testing;
view release on metacpan or search on metacpan
extras/datetime_js/jscalendar/calendar.js view on Meta::CPAN
};
Calendar.createElement = function(type, parent) {
var el = null;
if (document.createElementNS) {
// use the XHTML namespace; IE won't normally get here unless
// _they_ "fix" the DOM2 implementation.
el = document.createElementNS("http://www.w3.org/1999/xhtml", type);
} else {
el = document.createElement(type);
}
view release on metacpan or search on metacpan
examples/sample.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-GB" xmlns:fb="http://www.facebook.com/2008/fbml" >
<head>
<title>Tag Cloud</title>
<style type='text/css'>
view release on metacpan or search on metacpan
lib/HTML/TagParser.pm view on Meta::CPAN
}
}
=head1 DESCRIPTION
HTML::TagParser is a pure Perl module which parses HTML/XHTML files.
This module provides some methods like DOM interface.
This module is not strict about XHTML format
because many of HTML pages are not strict.
You know, many pages use <br> elemtents instead of <br/>
and have <p> elements which are not closed.
=head1 METHODS
view release on metacpan or search on metacpan
lib/HTML/TagTree.pm view on Meta::CPAN
sub header{
# This subroutine returns the standard HTML header
my $header = '<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
return $header;
}
lib/HTML/TagTree.pm view on Meta::CPAN
$return .= "Status: 200 OK\n\n";
}
sub get_doctype {
my $return = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"';
$return .= ' "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
$return .= "\n\n";
return $return;
}
view release on metacpan or search on metacpan
lib/HTML/Tagset.pm view on Meta::CPAN
HTML -- for example, C<%isHeadOrBodyElement> lists the tagnames
for all elements that can appear either in the head or in the body,
such as "script". That doesn't mean that I am saying your code that
produces HTML should feel free to put script elements in either place!
If you are producing programs that spit out HTML, you should be
I<intimately> familiar with the DTDs for HTML or XHTML (available at
C<http://www.w3.org/>), and you should slavishly obey them, not
the data tables in this document.
=head1 SEE ALSO
view release on metacpan or search on metacpan
templates-Pro/test_if5.out view on Meta::CPAN
<!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>HTML::Template::Pro test template</title>
view release on metacpan or search on metacpan
t/110_webkit.t view on Meta::CPAN
my $dir = abs_path(dirname($0));
copy("$dir/tiger.xhtml", "$td/tiger.xhtml") or die;
symlink(abs_path(dirname($0) . "/../javascript"), "$td/javascript");
$mech->get("file://$td/tiger.xhtml");
is($mech->title, 'XHTML test');
is_deeply($mech->console_messages, []);
write_file("$td/a.html", <<'ENDS');
<html>
<head>
view release on metacpan or search on metacpan
lib/HTML/Tidy/libXML.pm view on Meta::CPAN
}
_tidy_dom($dom) if $level > 0;
my $xhtml = $root->toString( 0, 'utf-8' ); # utf8 flag off
return <<EOT;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
$xhtml
EOT
}
view release on metacpan or search on metacpan
<p></P>
EOD
my $expected =<<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
<p></P>
EOD
my $expected =<<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
view release on metacpan or search on metacpan
lib/HTML/Tiny.pm view on Meta::CPAN
=head1 DESCRIPTION
C<< HTML::Tiny >> is a simple, dependency free module for generating
HTML (and XML). It concentrates on generating syntactically correct
XHTML using a simple Perl notation.
In addition to the HTML generation functions utility functions are
provided to
=over
lib/HTML/Tiny.pm view on Meta::CPAN
object ol optgroup option output p param picture portal pre progress q rb rp
rt rtc ruby s samp script section select slot small source spacer span strike
strong style sub summary sup table tbody td template textarea tfoot th thead
time title tr track tt u ul var video wbr xmp
The following methods generate closed XHTML (<br />) tags by default:
area base br col embed frame hr iframe img input keygen link meta param
source track wbr
So:
view release on metacpan or search on metacpan
t/ManualTest/manualTest1.htm view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<title>Manual</title>
<style type="text/css">
ul.toc_appendix1 {
view release on metacpan or search on metacpan
lib/HTML/TokeParser/Simple.pm view on Meta::CPAN
not yet been changed in order to maintain compatibility with previous versions
of this module. At the present time, your author is not aware of anyone taking
advantage of this "feature," but it's better to be safe than sorry.
Use of C<$HTML::Parser::VERSION> which is less than 3.25 may result in
incorrect behavior as older versions do not always handle XHTML correctly. It
is the programmer's responsibility to verify that the behavior of this code
matches the programmer's needs.
Note that C<HTML::Parser> processes text in 512 byte chunks. This sometimes
will cause strange behavior and cause text to be broken into more than one
view release on metacpan or search on metacpan
context.
HTML::Tree -- added blurb for /Perl & LWP/
HTML::TreeBuilder -- added blurb for /Perl & LWP/
Also added a few tweaks to do better with XHTML parsing.
Added guts() and disembowel() methods, for parsing document fragments.
TODO: desperately need to add tests to t/
view release on metacpan or search on metacpan
lib/HTML/Truncate.pm view on Meta::CPAN
}
}
=item B<truncate>
It returns the truncated XHTML if asked for a return value.
my $truncated = $ht->truncate($html);
It will truncate the string in place if no return value is expected
(L<wantarray> is not defined).
view release on metacpan or search on metacpan
t/perl.html view on Meta::CPAN
<!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" xml:lang="en" lang="en">
<head>
<title>The Perl Programming Language - www.perl.org</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
view release on metacpan or search on metacpan
lib/HTML/Valid/Tagset.pm view on Meta::CPAN
VERS_IFRAME => ((8|64|512)|(16|128|1024)),
VERS_LOOSE => ((1)|(2)|((8|64|512)|(16|128|1024))),
VERS_EVENTS => (((4|32|256)|(8|64|512)|(16|128|1024))|(2048)),
VERS_FROM32 => ((2)|((4|32|256)|(8|64|512)|(16|128|1024))),
VERS_FROM40 => (((4|32|256)|(8|64|512)|(16|128|1024))|(2048)|(4096)),
VERS_XHTML => (256|512|1024|2048|4096|262144),
VERS_ALL => ((1)|(2)|(((4|32|256)|(8|64|512)|(16|128|1024))|(2048)|(4096))|262144|131072),
VERS_PROPRIETARY => (16384|32768|8192),
};
my $taginfo = HTML::Valid::tag_information ();
view release on metacpan or search on metacpan
doc/Content.pm.html view on Meta::CPAN
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>
WebMake: Documentation: HTML::WebMake::Content
view release on metacpan or search on metacpan
examples/article-examples/cgi-script/H-W-NM-serve.pl view on Meta::CPAN
my $nav_links_template = <<'EOF';
[% USE HTML %]
<?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>
<head>
<title>[% title %]</title>
<style type="text/css">
view release on metacpan or search on metacpan
cgi/templates/main.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>html2wiki - Convert HTML text to wiki markup</title>
view release on metacpan or search on metacpan
__END__
=head1 NAME
HTML::XHTML::DVSM - Dynamic Visual Software Modelling, XML/XHTML template system that does not screw up your templates. V1.2
=head1 SYNOPSIS
=over 4
=back
=head1 README
C<HTML::XHTML::DVSM> A perl module that uses a simple scripting language embedded within
XML/XHTML markup to change the markup by adding, removing and
changing tags and attributes. The obvious application is for
generating dynamic web sites. But other applications would be
generating XUL gui screens (using XULs such as thinlet), or B2B XML
documents.
The unique thing about DVSM is it does NOT corrupt your original XML/XHTML. After XHTML is
developed to run dynamically in your website you can still load the template xhtml into your
dreamweaver or other html tool and it will look exactly the same as it did before. You can
do a storyboard of your whole website and the story board will be preserved even when it is
used as a template for your dynamic, live website.
view release on metacpan or search on metacpan
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
$page.="Date: $now\n";
$page.="Content-type: $p{content_type}; charset=$charset\n\n";
}
$page.="<?xml version=\"1.0\" encoding=\"" . lc($charset) . "\"?>\n" unless $p{noxml} || $p{nohead};
$page.="<!DOCTYPE html\n\tPUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n\t\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n" unless $p{nodoctype} || $p{nohead};
$page.=<<EOT;
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="$p{lang}" lang="$p{lang}">
<head>
<title>$p{title}</title>
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
HTML::XHTML::Lite - Light-weight Perl module for XHTML CGI applications
=head1 SYNOPSIS
use HTML::XHTML::Lite;
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
my %vars=getvars();
=head1 DESCRIPTION
This module provides a light-weight alternative to the Perl built-in, CGI.pm, for
those who wish for an easy way to produce a well-formed XHTML <head></head>,
with Dublin Core metadata. A function to create a footer is provided for
completeness and it is even possible to provide body text to return a complete
document. Provision is made for the inclusion of links to RSS (or other) feeds
and FOAF data. The 'extras' property allows for the insertion of arbitrary elements
into the document header.
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
foaftitle=>'FOAF data',
});
=head4 Methods
string Return the XHTML created as a scalar variable; the
default behaviour is to print the XHTML to STDOUT or the
currently selected handle.
my $foo=start_page({string=>1, ....., });
isfile Target is a file, so we don't want to create any
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
=head1 APPLICATION EXAMPLE
#!/usr/bin/perl
# Programme to create XHTML template
# through command line interaction.
use strict;
use warnings;
use HTML::XHTML::Lite;
lib/HTML/XHTML/Lite.pm view on Meta::CPAN
A web page for this module may be found here:
http://www.mss.cx/xhtmllite/
The alternative: man CGI.pm
Dublin Core Metadata: http://www.dublincore.org
XHTML Specification: http://www.w3.org/TR/xhtml1/
=head1 AUTHOR
Matthew Smith, smiffy@cpan.org
view release on metacpan or search on metacpan
t/parse_cdata.t view on Meta::CPAN
use Test::More skip_all => "Totally doesn't work yet";
# Test that contant of elements defined as containing intrinsic CDATA are not
# selected as elements
# NB: This tests HTML parsing rules. XHTML is different.
my $template = <<HTML;
<!DOCTYPE html>
<html lang=en-gb>
<meta charset=utf-8>
view release on metacpan or search on metacpan
my $node = $node->publicId($new_public_id);
Return or change public id from doctype.
my $tree = HTML5::DOM->new->parse('
<!DOCTYPE svg:svg PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
');
# get
print $tree->document->firstChild->publicId; # -//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN
# set
print $tree->document->firstChild->publicId('-//W3C//DTD SVG 1.1//EN');
print $tree->document->firstChild->html; # <!DOCTYPE svg:svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
my $node = $node->systemId($new_system_id);
Return or change public id from doctype.
my $tree = HTML5::DOM->new->parse('
<!DOCTYPE svg:svg PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">
');
# get
print $tree->document->firstChild->systemId; # http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd
# set
print $tree->document->firstChild->systemId('http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd');
print $tree->document->firstChild->html; # <!DOCTYPE svg:svg PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
=head1 HTML5::DOM::Collection
view release on metacpan or search on metacpan
doc/html/Changes.html view on Meta::CPAN
<?xml version="1.0" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Changes</title>
<link rel="stylesheet" href="perldav.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
view release on metacpan or search on metacpan
#
# 4. CGI HEAD
#
my $postpg = <<'EOPAGE';
<!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" lang="en-US" xml:lang="en-US">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
view release on metacpan or search on metacpan
lib/HTTP/MobileAgent/DoCoMo.pm view on Meta::CPAN
# only available in eggy/M-stage
# e.g.) "DoCoMo/1.0/eggy/c300/s32/kPHS-K"
printf "Bandwidth: %dkbps\n", $agent->bandwidth; # 32
# e.g.) "DoCoMo/2.0 SO902i(c100;TB;W30H16)"
print "XHTML compiant!\n" if $agent->xhtml_compliant; # true
# e.g.) "DoCoMo/2.0 P07A(c500;TB;W24H15)"
printf "Browser ver: %s\n", $agent->browser_version # 2.0
=head1 DESCRIPTION
lib/HTTP/MobileAgent/DoCoMo.pm view on Meta::CPAN
=item xhtml_compliant
if ($agent->xhtml_compliant) { }
returns if the agent is XHTML compliant.
=item browser_version
if ($agent->browser_version > 2.0) { }