File Coverage

blib/lib/Devel/WantXS.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	31	34	91.1

package Devel::WantXS;
use strict;
use warnings;
use utf8;
use parent qw/Exporter/;

our @EXPORT = qw/want_xs/;

our $_CACHE;
sub want_xs {
    my($self, $default) = @_;
    return $_CACHE if defined $_CACHE;

    # you're using this module, you must want XS by default
    # unless PERL_ONLY is true.
    $default = !$ENV{PERL_ONLY} if not defined $default;

    for my $arg(@ARGV){
        if($arg eq '--pp'){
            return $_CACHE = 0;
        }
        elsif($arg eq '--xs'){
            return $_CACHE = 1;
        }
    }
    return $_CACHE = $default;
}

1;
__END__