5 use vars qw($VERSION @ISA);
14 #################### subroutine header begin ####################
16 =head2 sample_function
18 Usage : How to use this function/method
19 Purpose : What it does
20 Returns : What it returns
21 Argument : What it wants to know
22 Throws : Exceptions and other anomolies
23 Comment : This is a sample subroutine header.
24 : It is polite to include more pod and fewer comments.
30 #################### subroutine header end ####################
35 my ($x, $y, $w, $h) = @_;
36 $self = \SDL::Rect::NewRect($x, $y, $w, $h);
41 #################### main pod documentation begin ###################
42 ## Below is the stub of documentation for your module.
43 ## You better edit it!
48 SDL::Rect - Bindings to rect obj and its functions in the C SDL libs
58 Stub documentation for this module was created by ExtUtils::ModuleMaker.
59 It looks like the author of the extension was negligent enough
60 to leave the stub unedited.
83 http://yapgh.blogspot.com/
87 This program is free software; you can redistribute
88 it and/or modify it under the same terms as Perl itself.
90 The full text of the license can be found in the
91 LICENSE file included with this module.
100 #################### main pod documentation end ###################
104 # The preceding line will help the module return a true value