File Coverage

blib/lib/cppAdaptive2.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	18	20	90.0

package cppAdaptive2 v3.0.2;

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( char* obsVector, char* futVector, char* betaVector, int n_observed, int threads ) {
    string obsVector1(obsVector);
    string futVector1(futVector);
    string betaVector1(betaVector);

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

    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 ( $obsVector, $futVector, $betaVector, $n_observed, $threads ) = @_;

    $threads ||= 2;

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

1;
__END__