File Coverage

blib/lib/Alien/Kiwisolver.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Alien::Kiwisolver;
2             # ABSTRACT: Alien package for the Kiwi C++ implementation of the Cassowary constraint solving algorithm
3             $Alien::Kiwisolver::VERSION = '0.003';
4 1     1   2275 use strict;
  1         2  
  1         33  
5 1     1   5 use warnings;
  1         2  
  1         31  
6              
7 1     1   511 use parent qw(Alien::Base);
  1         354  
  1         6  
8              
9             sub inline_auto_include {
10 6     6 1 25265 return [ 'kiwi/kiwi.h' ];
11             }
12              
13             sub Inline {
14 3     3 0 3604848 my ($self, $lang) = @_;
15              
16 3 50       62 if( $lang =~ /^CPP$/ ) {
17 3         43 my $params = Alien::Base::Inline(@_);
18              
19 3         45 $params->{CCFLAGSEX} = $self->runtime_prop->{cppstdflag};
20              
21 3         29 $params->{PRE_HEAD} = <<' EOF';
22             #if defined(_MSC_VER) || defined(__MINGW32__)
23             # define NO_XSLOCKS /* To avoid Perl wrappers of C library */
24             #endif
25              
26             #ifdef __cplusplus
27             // Avoid Perl's "seed" macro that breaks by including first.
28             #include
29             #endif
30              
31             EOF
32              
33 3         13 return $params;
34             }
35             }
36              
37              
38             1;
39              
40             __END__