File Coverage

blib/lib/NewFangle/App.pm

Criterion	Covered	Total	%
statement	17	25	68.0
branch			n/a
condition	0	3	0.0
subroutine	6	8	75.0
pod	1	1	100.0
total	24	37	64.8

package NewFangle::App 0.08 {

  use strict;
  use warnings;
  use 5.014;
  use NewFangle::FFI;
  use NewFangle::Transaction;
  use Carp ();

# ABSTRACT: NewRelic application class


  $ffi->attach( [ create_app => 'new' ] => ['newrelic_app_config_t', 'unsigned short'] => 'newrelic_app_t' => sub {
    my($xsub, undef, $config, $timeout) = @_;

    if(defined $ENV{NEWRELIC_APP_HOSTNAME}) {
      NewFangle::newrelic_set_hostname(
        $ENV{NEWRELIC_APP_HOSTNAME}
      );
    }

    $config //= {};
    $config = NewFangle::Config->new(%$config) if ref $config eq 'HASH';
    $timeout //= $ENV{PERL_NEWFANGLE_TIMEOUT} // 0;
    my $self = $xsub->($config->{config});
    unless(defined $self)
    {
      my $ptr = undef;
      $self = bless \$ptr, __PACKAGE__;
    }
    $self;
  });


  sub _txn_wrapper {
    my $xsub = shift;
    my $txn = $xsub->(@_);
    $txn //= do {
      my $ptr = undef;
      $txn = bless \$ptr, 'NewFangle::Transaction';
    };
    $txn;
  }

  $ffi->attach( start_non_web_transaction => ['newrelic_app_t','string'] => 'newrelic_txn_t', \&_txn_wrapper );
  $ffi->attach( start_web_transaction     => ['newrelic_app_t','string'] => 'newrelic_txn_t', \&_txn_wrapper );

  $ffi->attach( [ destroy_app => 'DESTROY' ] => ['opaque*'] => 'bool' => sub {
    my($xsub, $self) = @_;
    my $ptr = $$self;
    $xsub->(\$ptr);
  });


  sub connected
  {
    my $self = shift;
    !!$$self;
  }

};

1;

__END__