AWS-XRay

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension AWS-XRay

0.12 2022-05-11T03:46:44Z
    - encode JSON as UTF-8 encoded string (#22 @hitode909)
    - capture() may die on invalid names. (#20 @fujiwara)
    - fix race condition of creating the directory (#19 @shogo82148)
    - Create XRay control directory only if necessary (#18 @melo)
    - Support IMDSv2 (#16 @shogo82148)

0.10 2020-01-23T00:28:43Z
    - Fix Bareword (#13 @negachov)

0.09 2019-08-20T22:01:55Z
    - Support AWS Lambda (#10 @shogo82148)

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.json  view on Meta::CPAN

   "x_authority" : "cpan:FUJIWARA",
   "x_contributors" : [
      "Ichinose Shogo <shogo82148@gmail.com>",
      "Mohammad S Anwar <mohammad.anwar@yahoo.com>",
      "Pedro Melo <melo@simplicidade.org>",
      "hitode909 <hitode909@gmail.com>",
      "moznion <moznion@gmail.com>",
      "mutsutoshi.yoshimoto <mutsutoshi.yoshimoto@20202759n.guest.mixi.co.jp>",
      "papix <mail@papix.net>"
   ],
   "x_serialization_backend" : "JSON::PP version 4.08",
   "x_static_install" : 1
}

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;