view release on metacpan or  search on metacpan

lib/Catalyst/View/EmbeddedPerl/PerRequest.pm  view on Meta::CPAN

    src => sub { my ($self, $c, @args) = @_; return $self->src(@args); },
    data => sub { my ($self, $c, @args) = @_; return $self->data(@args); },
  );
}

sub inject_helpers {
  my ($class, $sandbox_ns, %helpers) = @_;
  foreach my $helper(keys %helpers) {
    if($sandbox_ns->can($helper)) {
      warn "Skipping injection of helper '$helper'; already exists in namespace $sandbox_ns" 
        if $ENV{DEBUG_TEMPLATE_EMBEDDED_PERL};
      next;
    }
    eval qq[
      package $sandbox_ns;
      sub $helper { \$helpers{'$helper'}->(__SELF, __SELF->ctx, \@_) }
    ]; die "Can't inject helpers: $@" if $@;
  }
}

sub render {