Commit | Line | Data |
---|---|---|
2ff28616 GB |
1 | package List::Util::XS; |
2 | use strict; | |
3 | use vars qw($VERSION); | |
4 | ||
5 | $VERSION = undef; | |
6 | ||
7 | sub VERSION { | |
8 | require Carp; | |
9 | Carp::croak("You need to install Scalar-List-Utils with a C compiler to ensure the XS is compiled") | |
10 | if defined $_[1]; | |
11 | $VERSION; | |
12 | } | |
13 | ||
14 | 1; | |
15 | __END__ | |
16 | ||
17 | =head1 NAME | |
18 | ||
19 | List::Util::XS - Indicate if List::Util was compiled with a C compiler | |
20 | ||
21 | =head1 SYNOPSIS | |
22 | ||
23 | use List::Util::XS 1.20; | |
24 | ||
25 | =head1 DESCRIPTION | |
26 | ||
27 | B<*** This instalation does not have XS installed ***> | |
28 | ||
29 | C<List::Util::XS> can be used as a dependency to ensure List::Util was | |
30 | installed using a C compiler and that the XS version is installed. | |
31 | ||
32 | During installation C<$List::Util::XS::VERSION> will be set to | |
33 | C<undef> if the XS was not compiled. | |
34 | ||
35 | =head1 SEE ALSO | |
36 | ||
37 | L<Scalar::Util>, L<List::Util>, L<List::MoreUtils> | |
38 | ||
39 | =head1 COPYRIGHT | |
40 | ||
41 | Copyright (c) 2008 Graham Barr <gbarr@pobox.com>. All rights reserved. | |
42 | This program is free software; you can redistribute it and/or | |
43 | modify it under the same terms as Perl itself. | |
44 | ||
45 | =cut |