File Coverage

blib/lib/WebService/Hexonet/Connector/Logger.pm

Criterion	Covered	Total	%
statement	25	33	75.7
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	35	44	79.5

package WebService::Hexonet::Connector::Logger;

use 5.026_000;
use strict;
use warnings;
use Data::Dumper;

use version 0.9917; our $VERSION = version->declare('v2.9.1');


sub new {
    my ($class) = @_;
    return bless {}, $class;
}


sub log {
    my ( $self, $post, $r, $error ) = @_;
    if ( defined $error ) {
        print {*STDERR} Dumper($post);
        print {*STDERR} 'HTTP communication failed: ' . $error;
        print {*STDERR} Dumper( $r->getCommandPlain() );
        print {*STDERR} Dumper( $r->getPlain() );
    } else {
        print {*STDOUT} Dumper($post);
        print {*STDOUT} Dumper( $r->getCommandPlain() );
        print {*STDOUT} Dumper( $r->getPlain() );
    }
    return $self->{data};
}

1;

__END__