File Coverage

blib/lib/NewFangle/CustomEvent.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package NewFangle::CustomEvent 0.07 {

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

# ABSTRACT: NewRelic custom event class


  $ffi->attach( [ create_custom_event => 'new' ] => ['string'] => 'newrelic_custom_event_t' => sub {
    my($xsub, undef, $event_type) = @_;
    my $self = $xsub->($event_type);
    Carp::croak("unable to create NewFangle::CustomEvent instance, see log for details") unless defined $self;
    $self;
  });


  $ffi->attach( [ "custom_event_add_attribute_$_" => "add_attribute_$_" ] => [ 'newrelic_custom_event_t', 'string', $_ ] => 'bool' )
    for qw( int long double string );

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

};

1;

__END__