File Coverage

blib/lib/Set/IntSpan/Fast.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	1	6	16.6
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	31	41	75.6

package Set::IntSpan::Fast;

use warnings;
use strict;
use Carp;
use Data::Types qw(is_int);
use List::Util qw(min max);

=head1 NAME

Set::IntSpan::Fast - Fast handling of sets containing integer spans.

=head1 VERSION

This document describes Set::IntSpan::Fast version 1.15

=cut

BEGIN {
  our $VERSION = '1.15';
  our @ISA;
  eval "use Set::IntSpan::Fast::XS ()";
  if ( $@ ) {
    if ( $@ =~ /^Can't\s+locate/ ) {
      eval "use Set::IntSpan::Fast::PP ()";
      die $@ if $@;
      @ISA = qw( Set::IntSpan::Fast::PP );
    }
    else {
      die $@;
    }
  }
  else {
    @ISA = qw( Set::IntSpan::Fast::XS );
  }
}

1;
__END__