File Coverage

blib/lib/NewFangle/Config.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	27	27	100.0

package NewFangle::Config 0.08 {

  use strict;
  use warnings;
  use 5.014;
  use NewFangle::FFI;
  use FFI::C::Util ();
  use Carp ();

# ABSTRACT: NewRelic Configuration class.


  $ffi->attach( [ create_app_config => 'new' ] => [ 'string', 'string' ] => 'newrelic_app_config_t' => sub {
    my($xsub, $class, %config) = @_;
    my $app_name    = delete $config{app_name}    // $ENV{NEWRELIC_APP_NAME}    // 'AppName';
    my $license_key = delete $config{license_key} // $ENV{NEWRELIC_LICENSE_KEY} // '';
    my $config = $xsub->($app_name, $license_key) // Carp::croak("Error creating $class, bad license key");
    FFI::C::Util::perl_to_c($config, \%config);
    bless {
      config => $config,
    }, $class;
  });


  sub to_perl
  {
    my($self) = @_;
    FFI::C::Util::c_to_perl($self->{config});
  }

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

1;

__END__