CatalystX-CMS
view release on metacpan or search on metacpan
lib/CatalystX/CMS/File.pm view on Meta::CPAN
}
unless ($leave_lock) {
$self->unlock or croak "can't unlock $self: $!";
}
return $ret;
}
=head2 escape_tt
Returns content() with all TT code wrapped in special XHTML tagset
<code class="tt">
This is to allow for such code to be escaped online or otherwise parsed
with a XML parser.
=cut
sub escape_tt {
my $self = shift;
lib/CatalystX/CMS/tt/cms/wrappers/html/cms/wrapper.tt view on Meta::CPAN
[%# cms html flavour wrapper -%]
<!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"
lang="[% c.language %]" xml:lang="[% c.language %]">
[% PROCESS "$CMS.wrappers.header" %]
<body class="yui-skin-sam">
[% PROCESS cms/svn/links.tt %]
[% PROCESS "$CMS.wrappers.body" %]
[% PROCESS "$CMS.wrappers.footer" %]
</body>
lib/CatalystX/CMS/tt/cms/wrappers/html/default/wrapper.tt view on Meta::CPAN
[%# default html flavour wrapper -%]
<!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"
lang="[% c.language %]" xml:lang="[% c.language %]">
[% PROCESS "$CMS.wrappers.header" %]
<body class="yui-skin-sam">
[% PROCESS "$CMS.wrappers.body" %]
[% PROCESS "$CMS.wrappers.footer" %]
</body>
</html>
( run in 0.558 second using v1.01-cache-2.11-cpan-49f99fa48dc )