Yet Another CPAN Grep

Catalyst-Plugin-HTML-Scrubber ( B/BI/BIGPRESH/Catalyst-Plugin-HTML-Scrubber-0.07.tar.gz, BIGPRESH, 2023; MetaCPAN )

Catalyst-Plugin-HTML-Scrubber/lib/Catalyst/Plugin/HTML/Scrubber.pm ( view source; MetaCPAN )

 if ($c->_req_path_exempt_from_scrubbing($conf));

    # If there's body_data - for e.g. a POSTed JSON body that was decoded -
    # then we need to walk through it, scrubbing as appropriate; don't ca

ref for application/json in one that rewinds the filehandle
# first:
my $orig_json_handler = $default_data_handlers->{'application/json'};
$default_data_handlers->{'application/json'} = sub {
    $_[0

]->seek(0,0); # rewind $fh arg
    $orig_json_handler->(@_);
};


{
    # and now replace the original default_data_handlers() with a version that
    # returns our modified handlers
    no warnings '