File Coverage

blib/lib/Devel/KYTProf/Logger/XRay.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	42	48	87.5

package Devel::KYTProf::Logger::XRay;

use 5.012000;
use strict;
use warnings;

use AWS::XRay;
use Devel::KYTProf;
use Time::HiRes();

our $VERSION = "0.03";

sub log {
    my ($class, %args) = @_;

    return if !$AWS::XRay::ENABLED;

    AWS::XRay::capture $args{module}, sub {
        my $segment = shift;
        my $elapsed = $args{time} / 1000; # msec -> sec
        my $end     = Time::HiRes::time();
        my $start   = $end - $elapsed;
        $segment->{start_time} = $start;
        $segment->{end_time}   = $end;

        my $data = $args{data};
        $segment->{metadata} = $data;
        if (exists $data->{http_method}) {
            $segment->{http} = {
                request => {
                    method => $data->{http_method},
                    url    => $data->{http_url},
                },
            };
        }
        elsif (exists $data->{sql}) {
            $segment->{sql} = {
                sanitized_query => delete $data->{sql},
            };
        }
        for my $n (qw/method package file line/) {
            $segment->{metadata}->{$n} = $args{$n};
        }
    }
}

1;
__END__