Commit | Line | Data |
bfd90409 |
1 | #!/usr/bin/env perl |
2 | # |
3 | # SDL.pm |
4 | # |
5 | # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org> |
91e7ec4e |
6 | # Copyright (C) 2009 Kartik Thakore <kthakore@cpan.org> |
bfd90409 |
7 | # ------------------------------------------------------------------------------ |
8 | # |
9 | # This library is free software; you can redistribute it and/or |
10 | # modify it under the terms of the GNU Lesser General Public |
11 | # License as published by the Free Software Foundation; either |
12 | # version 2.1 of the License, or (at your option) any later version. |
13 | # |
14 | # This library is distributed in the hope that it will be useful, |
15 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
17 | # Lesser General Public License for more details. |
18 | # |
19 | # You should have received a copy of the GNU Lesser General Public |
20 | # License along with this library; if not, write to the Free Software |
21 | # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
22 | # |
23 | # ------------------------------------------------------------------------------ |
24 | # |
25 | # Please feel free to send questions, suggestions or improvements to: |
26 | # |
91e7ec4e |
27 | # Kartik Thakore |
28 | # kthakore@cpan.org |
bfd90409 |
29 | # |
30 | |
31 | package SDL; |
32 | |
33 | use strict; |
084b921f |
34 | use warnings; |
35 | use Carp; |
36 | |
bfd90409 |
37 | use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); |
38 | |
39 | require Exporter; |
40 | require DynaLoader; |
41 | |
42 | use SDL_perl; |
43 | use SDL::Constants; |
44 | |
45 | BEGIN { |
46 | @ISA = qw(Exporter DynaLoader); |
47 | @EXPORT = qw( in verify &NULL ); |
48 | }; |
49 | |
659a4733 |
50 | # Give our caller SDL::Constant's stuff as well as ours. |
51 | sub import { |
52 | my $self = shift; |
53 | |
54 | $self->export_to_level(1, @_); |
55 | SDL::Constants->export_to_level(1); |
56 | } |
05c6b11c |
57 | $VERSION = '2.3'; |
bfd90409 |
58 | |
59 | print "$VERSION" if (defined($ARGV[0]) && ($ARGV[0] eq '--SDLperl')); |
60 | |
fe6d1297 |
61 | $SDL::DEBUG=0; |
bfd90409 |
62 | |
63 | sub NULL { |
64 | return 0; |
65 | } |
66 | |
67 | sub in { |
68 | my ($k,@t) = @_; |
1cf7cae7 |
69 | return 0 unless defined $k; |
5c44eb34 |
70 | my $r = ((scalar grep { defined $_ && $_ eq $k } @t) <=> 0); |
03aadbe5 |
71 | return 0 if $r eq ''; |
72 | return $r; |
73 | |
bfd90409 |
74 | } |
75 | |
76 | sub verify (\%@) { |
77 | my ($options,@valid_options) = @_; |
78 | for (keys %$options) { |
084b921f |
79 | croak "Invalid option $_\n" unless in ($_, @valid_options); |
bfd90409 |
80 | } |
81 | } |
82 | |
83 | |
84 | 1; |