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.000002';

use Data::Printer { end_separator => 1, hash_separator => ' => ' };
use DateTime                  ();
use Encode                    ();
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 Module::Load::Conditional qw( can_load );
use Parse::MIME               qw( parse_mime_type );
use Ref::Util                 qw( is_blessed_ref );
use Term::Size::Any           ();
use Term::Table 0.028         ();
use Try::Tiny                 qw( catch try );
use Types::Common::Numeric    qw( PositiveInt );
use Types::Standard           qw( ArrayRef Bool CodeRef InstanceOf );
use URI::QueryParam           qw();

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

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,
);

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