view release on metacpan or  search on metacpan

lib/Apache2/TaintRequest.pm  view on Meta::CPAN

    foreach my $value (@data) {

        # Dereference scalar references.
        $value = $$value if ref $value eq 'SCALAR';

        # Escape any HTML content if the data is tainted.
        $value = escape_html($value) if tainted($value);
    }

    $self->{request}->SUPER::print(@data);
}

1;

__END__


=head1 DESCRIPTION

=over 15