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 1.193 second using v1.01-cache-2.11-cpan-49f99fa48dc )