blob: 7bbe29cfe7699443d708857e45c7b7fb9737e42c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
my $has_xs = eval "require Package::Stash::XS; 1";
require Package::Stash;
no warnings 'once';
my $expected = $has_xs ? 'XS' : 'PP';
is($Package::Stash::IMPLEMENTATION, $expected,
"autodetected properly: $expected");
can_ok('Package::Stash', 'new');
done_testing;
|