Can load and boot but stuck at NewRect

diff --git a/exp/SDL/Rect/lib/SDL/Rect.pm b/exp/SDL/Rect/lib/SDL/Rect.pm
index 6ad6abd..c0c02e5 100644 (file)
--- a/exp/SDL/Rect/lib/SDL/Rect.pm
+++ b/exp/SDL/Rect/lib/SDL/Rect.pm
@@ -7,7 +7,7 @@ use strict;
     require Exporter;
     require DynaLoader;
     @ISA = qw(Exporter DynaLoader);
-    @EXPORT = qw(RectX RectY RectW RectH);
+    @EXPORT = qw( NewRect RectX RectY RectW RectH);
     
    
 
@@ -30,10 +30,6 @@ See Also   :
 
 #################### subroutine header end ####################
 
-sub new
-{
-       return NewRect();
-}
 
 
 #################### main pod documentation begin ###################

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

diff --git a/exp/SDL/Rect/t/001_load.t b/exp/SDL/Rect/t/001_load.t
index 0e3daed..6be37ec 100644 (file)
--- a/exp/SDL/Rect/t/001_load.t
+++ b/exp/SDL/Rect/t/001_load.t
@@ -6,7 +6,7 @@ use Test::More tests => 2;
 
 BEGIN { use_ok( 'SDL::Rect' ); }
 
-my $object = new ();
+my $object = SDL::Rect->NewRect(0,0,0,0);
 isa_ok ($object, 'SDL::Rect');