AWS-XRay

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::PAUSE::Permissions" : "0.07",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Crypt::URandom" : "0",
            "HTTP::Tiny" : "0",
            "IO::Socket::INET" : "0",
            "JSON::XS" : "0",
            "Module::Load" : "0",
            "Time::HiRes" : "0",
            "Types::Serialiser" : "0",
            "perl" : "5.016000"
         }
      },
      "test" : {
         "requires" : {
            "HTTP::Server::PSGI" : "0",
            "IO::Scalar" : "0",

META.yml  view on Meta::CPAN

  AWS::XRay::Plugin::EC2:
    file: lib/AWS/XRay/Plugin/EC2.pm
  AWS::XRay::Segment:
    file: lib/AWS/XRay/Segment.pm
  AWS::XRay::Segment::NoTrace:
    file: lib/AWS/XRay/Segment.pm
requires:
  Crypt::URandom: '0'
  HTTP::Tiny: '0'
  IO::Socket::INET: '0'
  JSON::XS: '0'
  Module::Load: '0'
  Time::HiRes: '0'
  Types::Serialiser: '0'
  perl: '5.016000'
resources:
  bugtracker: https://github.com/fujiwara/AWS-XRay/issues
  homepage: https://github.com/fujiwara/AWS-XRay
  repository: https://github.com/fujiwara/AWS-XRay.git
version: '0.12'
x_authority: cpan:FUJIWARA

cpanfile  view on Meta::CPAN

requires 'perl', '5.016000';

on 'test' => sub {
    requires 'Test::More', '0.98';
    requires 'IO::Scalar';
    requires 'Test::TCP';
    requires 'HTTP::Server::PSGI';
};

requires 'JSON::XS';
requires 'Types::Serialiser';
requires 'IO::Socket::INET';
requires 'Crypt::URandom';
requires 'Time::HiRes';
requires 'HTTP::Tiny';
requires 'Module::Load';

lib/AWS/XRay/Segment.pm  view on Meta::CPAN

package AWS::XRay::Segment;

use 5.012000;
use strict;
use warnings;

use JSON::XS    ();
use Time::HiRes ();

my $header = qq|{"format":"json","version":1}\n|;
my $json   = JSON::XS->new->utf8;

sub new {
    my $class = shift;
    my $src   = shift;

    return bless {}, "${class}::NoTrace" if !$AWS::XRay::ENABLED;

    my $segment = {
        id         => AWS::XRay::new_id(),
        start_time => Time::HiRes::time(),

t/Util.pm  view on Meta::CPAN

package t::Util;

use strict;
use warnings;

use IO::Scalar;
use JSON::XS;
use Exporter 'import';
our @EXPORT_OK = qw/ reset segments /;

my $buf;
no warnings 'redefine';

*AWS::XRay::sock = sub {
    IO::Scalar->new(\$buf);
};
1;