File Coverage

blib/lib/Devel/KYTProf/Profiler/Fluent/Logger.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	25	26	96.1

package Devel::KYTProf::Profiler::Fluent::Logger;
use 5.008001;
use strict;
use warnings;
use Fluent::Logger;

our $VERSION = "0.02";

sub apply {
    Devel::KYTProf->add_prof(
        'Fluent::Logger',
        '_post',
        sub {
            my ($orig, $self, $tag, $msg, $time) = @_;
            return [
                '%s tag:%s size:%s time:%f',
                ['method', 'tag', 'message_size', 'message_time'],
                {
                    method       => '_post',
                    tag          => $tag,
                    message_size => length($msg),
                    message_time => $time,
                },
            ];
        },
    );

    for my $method (qw/ _connect close /) {
        Devel::KYTProf->add_prof(
            'Fluent::Logger',
            $method,
            sub {
                my ($orig, $self) = @_;
                return [
                    '%s host:%s port:%d',
                    ['method', 'host', 'port'],
                    {
                        method => $method,
                        host   => $self->host,
                        port   => $self->port,
                    },
                ];
            },
        );
    }
}

1;
__END__