File Coverage

blib/lib/NewFangle.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1             package NewFangle 0.08 {
2              
3 6     6   1158234 use strict;
  6         41  
  6         145  
4 6     6   25 use warnings;
  6         6  
  6         111  
5 6     6   115 use 5.014;
  6         15  
6 6     6   1973 use NewFangle::FFI;
  6         19  
  6         695  
7 6     6   2387 use NewFangle::Config;
  6         19  
  6         181  
8 6     6   2034 use NewFangle::App;
  6         16  
  6         169  
9 6     6   2302 use NewFangle::CustomEvent;
  6         18  
  6         213  
10 6     6   37 use base qw( Exporter );
  6         10  
  6         1684  
11              
12             # ABSTRACT: Unofficial Perl NewRelic SDK
13              
14              
15             $ffi->mangler(sub { $_[0] });
16             $ffi->attach( newrelic_configure_log => ['string','newrelic_loglevel_t' ] => 'bool' );
17             $ffi->attach( newrelic_init => ['string','int' ] => 'bool' );
18             $ffi->attach( newrelic_version => [] => 'string' );
19              
20             if($ffi->find_symbol( 'newrelic_set_hostname' ))
21             {
22             $ffi->attach( newrelic_set_hostname => ['string'] => 'int' );
23             }
24             else
25             {
26             *newrelic_set_hostname = sub { 0 };
27             }
28              
29             $ffi->mangler(sub { "newrelic_$_[0]" });
30              
31             our @EXPORT_OK = grep /^newrelic_/, keys %NewFangle::;
32              
33             };
34              
35             1;
36              
37             __END__