X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FRect.pm;h=7cfb0a40c254f1f78d7b874d1568a488d35b9246;hb=896b04ee008898e1c1edbdd432bedaa8643400dc;hp=3879a025d2c530c5a2ec7b77c8e7f74483ff06dc;hpb=b3cdeb39a431b026168c4060bf74001fcee07493;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Rect.pm b/lib/SDL/Rect.pm
index 3879a02..7cfb0a4 100644
--- a/lib/SDL/Rect.pm
+++ b/lib/SDL/Rect.pm
@@ -7,74 +7,3 @@ our @ISA = qw(Exporter DynaLoader);
 bootstrap SDL::Rect;
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SDL::Rect - Defines a rectangular area
-
-=head1 SYNOPSIS
-
-  my $rect = SDL::Rect->new( 0, 0, 0, 0 );
-  $rect->x(1);
-  $rect->y(2);
-  $rect->w(3);
-  $rect->h(4);
-  my $x = $rect->x; # 1
-  my $y = $rect->y; # 2
-  my $w = $rect->w; # 3
-  my $h = $rect->h; # 4
-
-=head1 DESCRIPTION
-
-An C<SDL_Rect> defines a rectangular area of pixels.
-
-=head1 METHODS
-
-=head2 new ( $x, $y, $w, $h )
-
-The constructor creates a new rectangle with the specified x, y, w, h
-values:
-
-    my $rect = SDL::Rect->new( 0, 0, 0, 0 );
-
-=head2 x
-
-If passed a value, this method sets the x component of the rectangle;
-if not, it returns the x component of the rectangle:
-
-  my $x = $rect->x; # 255
-  $rect->x(128);
-
-=head2 y
-
-If passed a value, this method sets the y component of the rectangle;
-if not, it returns the y component of the rectangle:
-
-  my $y = $rect->y; # 255
-  $rect->y(128);
-
-=head2 w
-
-If passed a value, this method sets the w component of the rectangle;
-if not, it returns the w component of the rectangle:
-
-  my $w = $rect->w; # 255
-  $rect->w(128);
-
-=head2 h
-
-If passed a value, this method sets the h component of the rectangle;
-if not, it returns the h component of the rectangle:
-
-  my $h = $rect->h; # 255
-  $rect->h(128);
-
-=head1 SEE ALSO
-
-L<SDL::Surface>
-
-=cut