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