Yet Another CPAN Grep

Catalyst-View-EmbeddedPerl-PerRequest ( J/JJ/JJNAPIORK/Catalyst-View-EmbeddedPerl-PerRequest-0.001021.tar.gz, JJNAPIORK, 2025; MetaCPAN )

Catalyst-View-EmbeddedPerl-PerRequest/lib/Catalyst/View/EmbeddedPerl/PerRequest/TagUtils.pm ( view source; MetaCPAN )

age Catalyst::View::EmbeddedPerl::PerRequest::TagUtils;

use warnings;
use strict;
use JSON::MaybeXS ('encode_json');

sub new {
  my $class = shift;
  my $view = shift;
  return bless {view=>$view},

t;
  my $value = defined($_[0]) ? shift() : '';
  if(ref($value) eq 'HASH') {
    $value = encode_json($value);
    $value = $self->{view}->safe($value);
  } else {
    $value = $self->{view}->safe($v