Applied Magnet's Patch

[sdlgit/SDL_perl.git] / lib / SDL / Rect.pm

diff --git a/lib/SDL/Rect.pm b/lib/SDL/Rect.pm
index 3879a02..7cfb0a4 100644 (file)
--- 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