view release on metacpan or  search on metacpan

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

package LWP::ConsoleLogger;

use Moo;
use MooX::StrictConstructor;

use 5.006;

our $VERSION = '1.000001';

use Data::Printer { end_separator => 1, hash_separator => ' => ' };
use DateTime                          ();
use HTML::Restrict                    ();
use HTTP::Body                        ();
use HTTP::CookieMonster               ();
use JSON::MaybeXS                     qw( decode_json );
use List::AllUtils                    qw( any apply none );
use Log::Dispatch                     ();
use Parse::MIME                       qw( parse_mime_type );
use Ref::Util                         qw( is_blessed_ref );
use Term::Size::Any                   ();
use Text::SimpleTable::AutoWidth 0.09 ();
use Try::Tiny                         qw( catch try );
use Types::Common::Numeric            qw( PositiveInt );
use Types::Standard                   qw( ArrayRef Bool CodeRef InstanceOf );
use URI::QueryParam                   qw();
use XML::Simple                       qw( XMLin );

my $json_regex = qr{vnd.*\+json};

sub BUILD {
    my $self = shift;
    $Text::SimpleTable::AutoWidth::WIDTH_LIMIT = $self->term_width();
}

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

has dump_content => (
    is      => 'rw',
    isa     => Bool,
    default => 0,
);

has dump_cookies => (
    is      => 'rw',
    isa     => Bool,
    default => 0,
);

has dump_headers => (
    is      => 'rw',
    isa     => Bool,
    default => 1,
);

has dump_params => (
    is      => 'rw',
    isa     => Bool,
    default => 1,
);

has dump_status => (
    is      => 'rw',
    isa     => Bool,
    default => 1,
);

has dump_text => (
    is      => 'rw',
    isa     => Bool,
    default => 1,
);

has dump_title => (
    is      => 'rw',
    isa     => Bool,
    default => 1,