File Coverage

blib/lib/NewRelic/Agent/FFI/Procedural.pm

Criterion	Covered	Total	%
statement	71	72	98.6
branch			n/a
condition			n/a
subroutine	30	31	96.7
pod	9	9	100.0
total	110	112	98.2

package NewRelic::Agent::FFI::Procedural;

use strict;
use warnings;
use 5.010;
use base qw( Exporter );
use constant NEWRELIC_RETURN_CODE_OK                      => 0;
use constant NEWRELIC_RETURN_CODE_OTHER                   => -0x10001;
use constant NEWRELIC_RETURN_CODE_DISABLED                => -0x20001;
use constant NEWRELIC_RETURN_CODE_INVALID_PARAM           => -0x30001;
use constant NEWRELIC_RETURN_CODE_INVALID_ID              => -0x30002;
use constant NEWRELIC_RETURN_CODE_TRANSACTION_NOT_STARTED => -0x40001;
use constant NEWRELIC_RETURN_CODE_TRANSACTION_IN_PROGRESS => -0x40002;
use constant NEWRELIC_RETURN_CODE_TRANSACTION_NOT_NAMED   => -0x40003;
use constant NEWRELIC_ROOT_SEGMENT => 0;
use constant NEWRELIC_AUTOSCOPE    => 1;
use constant NEWRELIC_STATUS_CODE_SHUTDOWN => 0;
use constant NEWRELIC_STATUS_CODE_STARTING => 1;
use constant NEWRELIC_STATUS_CODE_STOPPING => 2;
use constant NEWRELIC_STATUS_CODE_STARTED  => 3;

# ABSTRACT: Procedural interface for NewRelic APM
our $VERSION = '0.08';


sub newrelic_init
{
  return NEWRELIC_RETURN_CODE_OK;
}



my $id = 1;

sub newrelic_transaction_begin
{
  return $id++;
}

foreach my $func (qw( newrelic_transaction_set_name newrelic_transaction_set_request_url
newrelic_transaction_set_max_trace_segments newrelic_transaction_set_category
newrelic_transaction_set_type_web newrelic_transaction_set_type_other
newrelic_transaction_add_attribute newrelic_transaction_notice_error
newrelic_transaction_end newrelic_record_metric newrelic_record_cpu_usage
newrelic_record_memory_usage ))
{
  state $sub = sub { return NEWRELIC_RETURN_CODE_OK };
  no strict 'refs';
  *$func = $sub;
}

sub newrelic_segment_generic_begin
{
  return $id++;
}


sub newrelic_segment_datastore_begin
{
  $id++;
}


sub newrelic_segment_external_begin
{
  $id++;
}

sub newrelic_segment_end
{
  return NEWRELIC_RETURN_CODE_OK;
}


sub newrelic_register_message_handler
{
  return;
}

use constant newrelic_message_handler => 0xdeadbeaf;


use constant newrelic_basic_literal_replacement_obfuscator => 0xbeafdead;


sub newrelic_request_shutdown
{
  return NEWRELIC_RETURN_CODE_OK;
}


sub newrelic_enable_instrumentation
{
  return;
}

our @EXPORT = sort grep /^newrelic_/i, keys %NewRelic::Agent::FFI::Procedural::;

1;

__END__