Commit | Line | Data |
2ff28616 |
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 |