view release on metacpan or  search on metacpan

lib/LWP/ConsoleLogger.pm  view on Meta::CPAN

);

has text_pre_filter => (
    is  => 'rw',
    isa => CodeRef,
);

sub _build_headers_to_redact {
    my $self = shift;
    return $ENV{LWPCL_REDACT_HEADERS}
        ? [ split m{,}, $ENV{LWPCL_REDACT_HEADERS} ]
        : [];
}

sub _build_params_to_redact {
    my $self = shift;
    return $ENV{LWPCL_REDACT_PARAMS}
        ? [ split m{,}, $ENV{LWPCL_REDACT_PARAMS} ]
        : [];
}

sub request_callback {
    my $self = shift;
    my $req  = shift;
    shift;

    if ( $self->dump_uri ) {
        my $uri_without_query = $req->uri->clone;