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.0901 {
2              
3 6     6   1183216 use strict;
  6         40  
  6         147  
4 6     6   27 use warnings;
  6         8  
  6         121  
5 6     6   125 use 5.014;
  6         26  
6 6     6   2114 use NewFangle::FFI;
  6         20  
  6         677  
7 6     6   2430 use NewFangle::Config;
  6         17  
  6         192  
8 6     6   2216 use NewFangle::App;
  6         16  
  6         190  
9 6     6   2377 use NewFangle::CustomEvent;
  6         15  
  6         205  
10 6     6   37 use base qw( Exporter );
  6         9  
  6         1688  
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__