exp/SDL/Rect/lib/SDL/Rect.pm

   1 package SDL::Rect;
   2 use strict;
   3
   4
   5     use vars qw($VERSION @ISA);
   6     $VERSION     = '0.01';
   7     require DynaLoader;
   8     @ISA = qw(DynaLoader);
   9
  10
  11
  12
  13
  14 #################### subroutine header begin ####################
  15
  16 =head2 sample_function
  17
  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.
  25
  26 See Also   :
  27
  28 =cut
  29
  30 #################### subroutine header end ####################
  31
  32 sub new
  33 {
  34         my $self = shift;
  35         my ($x, $y, $w, $h) = @_;
  36         $self = \SDL::Rect::NewRect($x, $y, $w, $h);
  37
  38         return $self;
  39 }
  40
  41 #################### main pod documentation begin ###################
  42 ## Below is the stub of documentation for your module.
  43 ## You better edit it!
  44
  45
  46 =head1 NAME
  47
  48 SDL::Rect - Bindings to rect obj and its functions in the C SDL libs
  49
  50 =head1 SYNOPSIS
  51
  52   use SDL::Rect;
  53   blah blah blah
  54
  55
  56 =head1 DESCRIPTION
  57
  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.
  61
  62 Blah blah blah.
  63
  64
  65 =head1 USAGE
  66
  67
  68
  69 =head1 BUGS
  70
  71
  72
  73 =head1 SUPPORT
  74
  75
  76
  77 =head1 AUTHOR
  78
  79     Kartik Thakore
  80     CPAN ID: KTHAKORE
  81     none
  82     KTHAKORE@CPAN.ORG
  83     http://yapgh.blogspot.com/
  84
  85 =head1 COPYRIGHT
  86
  87 This program is free software; you can redistribute
  88 it and/or modify it under the same terms as Perl itself.
  89
  90 The full text of the license can be found in the
  91 LICENSE file included with this module.
  92
  93
  94 =head1 SEE ALSO
  95
  96 perl(1).
  97
  98 =cut
  99
 100 #################### main pod documentation end ###################
 101
 102 bootstrap SDL::Rect;
 103 1;
 104 # The preceding line will help the module return a true value
 105