oops

diff --git a/exp/SDL/Rect/Build.PL b/exp/SDL/Rect/Build.PL
index 183d576..8cd249c 100644 (file)
--- a/exp/SDL/Rect/Build.PL
+++ b/exp/SDL/Rect/Build.PL
@@ -16,7 +16,7 @@ Module::Build->new
        {
                'Pod::ToDemo'  => '0.20'                
        },
-       xs_files             => {'Rect.xs' => './Rect.xs'},
+       xs_files             => {'Rect.xs' => 'lib/SDL/Rect.xs'},
        extra_compiler_flags => scalar `sdl-config --cflags`,
        extra_linker_flags  =>  scalar `sdl-config --libs`,
        dist_author          => 'Kartik Thakore <KTHAKORE@cpan.org>',

diff --git a/exp/SDL/Rect/Rect.xs b/exp/SDL/Rect/Rect.xs
index 37ea400..607c675 100644 (file)
--- a/exp/SDL/Rect/Rect.xs
+++ b/exp/SDL/Rect/Rect.xs
@@ -10,7 +10,8 @@
 
 
 
-MODULE = Rect  PACKAGE = Rect
+MODULE = SDL   PACKAGE = Rect
+PROTOTYPES: DISABLE
 
 
 SDL_Rect *
@@ -64,7 +65,7 @@ RectH ( rect, ... )
        OUTPUT:
                RETVAL
 
-MODULE = Rect  PACKAGE = SDL_RectPtr  PREFIX = Rect_
+MODULE = SDL  PACKAGE = SDL_RectPtr  PREFIX = Rect_
 
 void
 Rect_DESTROY(rect)

diff --git a/exp/SDL/Rect/lib/SDL/Rect.pm b/exp/SDL/Rect/lib/SDL/Rect.pm
new file mode 100644 (file)
index 0000000..fd2e966
--- /dev/null
+++ b/exp/SDL/Rect/lib/SDL/Rect.pm
@@ -0,0 +1,104 @@
+package SDL::Rect;
+use strict;
+
+
+    use vars qw($VERSION @ISA @EXPORT);
+    $VERSION     = '0.01';
+    require Exporter;
+    require DynaLoader;
+    @ISA = qw(Exporter DynaLoader);
+    @EXPORT = qw(RectX RectY RectW RectH);
+    
+   
+
+
+#################### subroutine header begin ####################
+
+=head2 sample_function
+
+ Usage     : How to use this function/method
+ Purpose   : What it does
+ Returns   : What it returns
+ Argument  : What it wants to know
+ Throws    : Exceptions and other anomolies
+ Comment   : This is a sample subroutine header.
+           : It is polite to include more pod and fewer comments.
+
+See Also   : 
+
+=cut
+
+#################### subroutine header end ####################
+
+sub new
+{
+       return NewRect();
+}
+
+
+#################### main pod documentation begin ###################
+## Below is the stub of documentation for your module. 
+## You better edit it!
+
+
+=head1 NAME
+
+SDL::Rect - Bindings to rect obj and its functions in the C SDL libs
+
+=head1 SYNOPSIS
+
+  use SDL::Rect;
+  blah blah blah
+
+
+=head1 DESCRIPTION
+
+Stub documentation for this module was created by ExtUtils::ModuleMaker.
+It looks like the author of the extension was negligent enough
+to leave the stub unedited.
+
+Blah blah blah.
+
+
+=head1 USAGE
+
+
+
+=head1 BUGS
+
+
+
+=head1 SUPPORT
+
+
+
+=head1 AUTHOR
+
+    Kartik Thakore
+    CPAN ID: KTHAKORE
+    none
+    KTHAKORE@CPAN.ORG
+    http://yapgh.blogspot.com/
+
+=head1 COPYRIGHT
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+
+=head1 SEE ALSO
+
+perl(1).
+
+=cut
+
+#################### main pod documentation end ###################
+
+bootstrap Rect $VERSION;
+
+1;
+# The preceding line will help the module return a true value
+