view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

  my $pre = $_ <= 6.21 
    ? qq{patch_blib: pm_to_blib\n}
    : qq{patch_blib: patch_blib.ts\npatch_blib.ts: pm_to_blib.ts\n};
  return $pre . <<'ENDE';
	@$(TOUCH) $@

ENDE
}

sub top_targets {
  my $t = shift->SUPER::top_targets(@_);
  if ( $] >= 5.008 ) {
    $t =~ s!pure_all :: config pm_to_blib!pure_all :: config!;
  }
  $t;
}
1;


package main;
require ModPerl::MM;

lib/Apache2/PageKit/View.pm  view on Meta::CPAN

                          HAVE_MESSAGES     => '[% END %]',
                          HAVE_NOT_MESSAGES => '[% END %]',
                          MESSAGES          => '[% END %]'
);


sub new {
  require Template;
  require Template::Parser;
  require Template::Context;
  return shift->SUPER::new(@_);
}

sub fill_in_view {
  my ($view) = @_;

  # load record containing Template Toolkit object
  my $record = $view->{record};

  my %tt_params;