File Coverage

blib/lib/cppAdaptive2.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	17	94.1

package cppAdaptive2 v3.0.1;

use strict;
use warnings;

use cppAdaptive2::Inline(
    CPP => <<'CPP',
#undef seed
#undef do_open
#undef do_close
#undef open
#undef read
#undef write
#undef close
#undef bind
#undef seekdir
#undef setbuf
#undef wait
#undef PP

#include "cppAdaptive.cpp"

AV* _update(int threads, char* obsVector, char* futVector, char* betaVector, int n_observed) {
    string obsVector1(obsVector);
    string futVector1(futVector);
    string betaVector1(betaVector);

    cppAdaptive(threads, obsVector1, futVector1, betaVector1, n_observed);

    AV* av = newAV();
    sv_2mortal((SV*)av);

    av_push( av, newSVpv(betaVector1.c_str(), betaVector1.size()) );
    av_push( av, newSVpv(futVector1.c_str(), futVector1.size()) );

    return av;
}
CPP

    # without omp
    # inc       => '-I../../../../src',
    # ccflags   => '-std=c++11',

    # with omp
    inc       => '-I../../../../src',
    ccflags   => '-std=c++11 -fopenmp',
    lddlflags => '-shared -O2 -fstack-protector-strong -fopenmp',

    clean_after_build => 0,
    clean_build_area  => 0,
);

sub update {
    my ( $threads, $obsVector, $futVector, $betaVector, $n_observed ) = @_;

    return @{ _update( $threads, $obsVector, $futVector, $betaVector, $n_observed ) };
}

1;
__END__