File Coverage

blib/lib/qbit/Log.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	26	35	74.2

=head1 Name

qbit::Log - Functions to logging

=cut

package qbit::Log;
$qbit::Log::VERSION = '2.2';
use strict;
use warnings;
use utf8;

use base qw(Exporter);
use Data::Dumper;

BEGIN {
    our (@EXPORT, @EXPORT_OK);

    @EXPORT = qw(
      l ldump
      );
    @EXPORT_OK = @EXPORT;
}


=head1 Functions

=head2 l

B

=over

=item

B<@args> - array of strings, messages;

=back

Print joined messsages to STDERR with new line at end.

=cut

sub l {
    print STDERR join(' ', @_) . "\n";
}

=head2 ldump

B

=over

=item

B<@args> - array, variables;

=back

Print variables dumps with Data::Dumper::Dumper to STDERR. Unicode sequenses will be converted to readable text.

=cut

sub ldump(@) {
    local $Data::Dumper::Indent  = 2;
    local $Data::Dumper::Varname = '';

    my $dump = Dumper(@_);
    $dump =~ s/\\x\{([a-f0-9]{2,})\}/chr(hex($1))/ge;
    print STDERR $dump;
}

1;