CGI-Application-Plugin-TmplInnerOuter
2 results

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/TmplInnerOuter.pm  view on Meta::CPAN 

sub _get_tmpl_name { $_[0]->tmpl_inner_name . '.html' }

sub _get_tmpl_default {
   my ($self,$name) = @_;
   $name ||= $self->_get_tmpl_name;
   #$self->{_tmpl_default} ||={};

   if ($name eq 'main.html' and ! defined $self->{_tmpl_default}->{'main.html'}){
      ### main.html was not defined, using default hard coded main.html template
      $self->_set_tmpl_default(
      q{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
      <html>
      <head>
      <title><TMPL_VAR NAME=TITLE></title>
      <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
      </head>
      <body>
      <TMPL_VAR NAME=BODY>
      </body>
      </html>},'main.html');

lib/CGI/Application/Plugin/TmplInnerOuter2.pm  view on Meta::CPAN 

      }
   }
   croak('no name or code provided');
}



sub __main_html {
   my $self = shift; 
  
  return  q{<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
      <html>
      <head>
      <title><TMPL_VAR NAME=TITLE></title>
      <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
      </head>
      <body>
      <TMPL_VAR NAME=BODY>
      </body>
      </html>};



( run in 1.478 second using v1.01-cache-2.11-cpan-49f99fa48dc )