view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  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

718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
                          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;