NewRelic::Agent::FFI::Procedural - Procedural interface for NewRelic APM
version 0.03
use NewRelic::Agent::FFI::Procedural; # enable embedded mode: newrelic_register_message_handler newrelic_message_handler; # initialize: newrelic_init 'abc123' # license key 'REST API' # app name ; # use it: my $tx = newrelic_transaction_begin; ... my $rc = newrelic_transaction_end $tx;
NOTE: This module is deprecated. It is based on the NewRelic Agent SDK, which was only ever released as beta software. Please use NewFangle instead.
This module provides bindings for the NewRelic Agent SDK.
Unlike NewRelic::Agent::FFI, this is NOT a drop in replacement for NewRelic::Agent. The author believes this interface is better. In addition to the reasons the author believes NewRelic::Agent::FFI to be better than NewRelic::Agent (listed in the former's documentation), the author believes this module to be better than NewRelic::Agent::FFI because:
The NewRelic::Agent instance that you create doesn't represent anything in the NewRelic Agent SDK. In fact if you don't understand how things work under the hood, you might be confused into believing that you can initialize multiple agent instances in the same process.
Because the unused $agent instance needs to be shifted off the stack before calling the underlying C code there is a lot more overhead in the object oriented interface.
$agent
The object oriented version renames a number of its methods, so translating C/C++ example code is nearly impossible. The procedural version uses the same function name and constants, so translating example code from other languages is easy.
This interface is more complete than the object oriented version.
All functions are exported by default. You can explicitly specify just the functions that you want in the usual Exporter way if you prefer.
Functions that return a $rc will return one of these codes (NEWRELIC_RETURN_CODE_OK is 0, the others are negative values):
$rc
Functions that return a $tx will return a transaction id on success, and a (negative) $rc code on failure.
$tx
Functions that return a $seg will return a segment id on success, and a (negative) $rc code on failure.
$seg
Functions that return a $address are the address to a C function that can be passed to other newrelic_ functions as appropriate.
$address
newrelic_
For functions that take a $parent_seg argument, you can pass in NEWRELIC_AUTOSCOPE or NEWRELIC_ROOT_SEGMENT instead of a literal segment id.
$parent_seg
For functions that take a $tx argument, you can pass in NEWRELIC_AUTOSCOPE instead of a literal transaction id.
my $rc = newrelic_init $license_key, $app_name, $app_language, $app_language_version;
Initialize the connection to NewRelic.
$license_key
A valid NewRelic license key for your account.
This value is also automatically sourced from the NEWRELIC_LICENSE_KEY environment variable.
NEWRELIC_LICENSE_KEY
$app_name
The name of your application.
This value is also automatically sourced from the NEWRELIC_APP_NAME environment variable.
NEWRELIC_APP_NAME
$app_language
The language that your application is written in.
This value defaults to perl, and can also be automatically sourced from the NEWRELIC_APP_LANGUAGE environment variable.
perl
NEWRELIC_APP_LANGUAGE
$app_language_version
This value defaults to your perl version, and can also be automatically sourced from the NEWRELIC_APP_LANGUAGE_VERSION environment variable.
NEWRELIC_APP_LANGUAGE_VERSION
my $tx = newrelic_transaction_begin;
Identifies the beginning of a transaction, which is a timed operation consisting of multiple segments. By default, transaction type is set to WebTransaction and transaction category is set to Uri.
WebTransaction
Uri
Returns the transaction's ID on success, else negative warning code or error code.
my $rc = newrelic_transaction_set_name $tx, $name;
Sets the transaction name.
my $rc = newrelic_transaction_set_request_url $tx, $url;
Sets the transaction URL.
my $rc = newrelic_transaction_set_max_trace_segments $tx, $max;
Sets the maximum trace section for the transaction.
my $rc = newrelic_transaction_set_category $tx, $category;
Sets the transaction category.
my $rc = newrelic_transaction_set_type_web $tx;
Sets the transaction type to 'web'
my $rc = newrelic_transaction_set_type_other $tx;
Sets the transaction type to 'other'
my $rc = newrelic_transaction_add_attribute $tx, $key => $value;
Adds the given attribute (key/value pair) for the transaction.
my $rc = newrelic_transaction_notice_error $tx, $exception_type, $error_message, $stack_trace, $stack_frame_delimiter;
Identify an error that occurred during the transaction. The first identified error is sent with each transaction.
my $rc = newrelic_transaction_end $tx;
my $rc = newrelic_record_metric $key => $value;
Records the given metric (key/value pair). The $value should be a floating point.
$value
my $rc = newrelic_record_cpu_usage $cpu_user_time_seconds, $cpu_usage_percent;
Records the CPU usage. $cpu_user_time_seconds and $cpu_usage_percent are floating point values.
$cpu_user_time_seconds
$cpu_usage_percent
my $rc = newrelic_record_memory_usage $memory_megabytes;
Records the memory usage. $memory_megabytes is a floating point value.
$memory_megabytes
my $seg = newrelic_segment_generic_begin $tx, $parent_seg, $name;
Begins a new generic segment. $parent_seg is a parent segment id (undef no parent). $name is a string.
undef
$name
my $seg = newrelic_segment_datastore_begin $tx, $parent_seg, $table, $operation, $sql, $sql_trace_rollup_name; my $seg = newrelic_segment_datastore_begin $tx, $parent_seg, $table, $operation, $sql, $sql_trace_rollup_name, $sql_obfuscator;
Begins a new datastore segment. $parent_seg is a parent segment id (undef no parent). $operation should be one of select, insert, update or delete.
$operation
select
insert
update
delete
If you want to provide your own obfuscator, you need to pass in the address of a C function. To do that from Perl you can create a closure with FFI::Platypus, like so:
use 5.010; use FFI::Platypus; use FFI::Platypus::Memory qw( strdup free ); sub myobfuscator { # input SQL my($sql) = @_; # make some kind of transformation $sql =~ tr/a-z/z-a/; # because C has a different ownership model than Perl for functions # that return a string, you need to create a C pointer to a copy of # the return value. On the next call we will free the previous copy. state $ptr = 0; free($ptr) if $ptr; return $ptr = strdup($sql); } $ffi->type('(string)->opaque' => 'obfuscator_t'); my $myobfuscator_closure = $ffi->closure(\&myobfuscator); my $myobfuscator_ptr = $ffi->cast('obfuscator_t' => 'opaque', $myobfuscator_closure); newrelic_segment_datastore_begin $tx, $seg, $table, $sql, $rollup, $myobfuscator_ptr; ...
my $seg = newrelic_segment_external_begin $tx, $parent_seg, $host, $name;
Begins a new external segment. $parent_seg is a parent segment id (undef no parent).
my $rc = newrelic_segment_end $tx, $seg;
End the given segment.
newrelic_register_message_handler $handler;
Register the message handler used to send messages to NewRelic. The only useful way at the moment to use this function is by giving it newrelic_message_handler, which sends messages directly to NewRelic, rather than through a separate daemon process:
newrelic_message_handler
newrelic_register_message_handler newrelic_message_handler;
This needs to be called BEFORE you call newrelic_init.
newrelic_init
my $address = newrelic_message_handler;
Returns the address of the C function that handles sending messages directly to NewRelic. This cannot be called directly from Perl, but can be passed to newrelic_register_message_handler like so:
newrelic_register_message_handler
my $address = newrelic_basic_literal_replacement_obfuscator;
Returns the address of the C function that does the basic/default obfuscator contained within the NewRelic agent library. Normally you wouldn't call this from Perl, so it is the address of the function, not the function itself. You can, however, call it via FFI::Platypus:
use FFI::Platypus; my $ffi = FFI::Platypus->new; $new->attach( newrelic_basic_literal_replacement_obfuscator, ['string'] => 'string'); my $save = newrelic_basic_literal_replacement_obfuscator("SELECT * FROM user WHERE password = 'secret'");
my $rc = newrelic_request_shutdown $reason;
Tell the Collector Client to shutdown and stop reporting application performance data to New Relic.
newrelic_enable_instrumentation $set_enabled;
Disable/enable instrumentation. By default, instrumentation is enabled.
$set_enabled 0 to disable, 1 to enable
$set_enabled
The SDK binaries provided by New Relic only work on Linux x86_64. The binaries are labeled as a "beta" and were released in July 2016. It doesn't seem likely that New Relic will be releasing new versions of the SDK. The author of this module has had good success getting this module to work on Ubuntu Precise and Xenial, and heard from user feedback that it works with Bionic. I have heard that it does NOT work with CentOS 7. Your mileage may vary.
Bad things will happen if you call newrelic_init before forking. So don't do that.
Graham Ollis <plicease@cpan.org>
This software is copyright (c) 2019 by Graham Ollis.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Alt::NewRelic::Agent::FFI::Empty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Alt::NewRelic::Agent::FFI::Empty
CPAN shell
perl -MCPAN -e shell install Alt::NewRelic::Agent::FFI::Empty
For more information on module installation, please visit the detailed CPAN module installation guide.