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

   1 package SDL::Rect;
   2 use strict;
   3
   4
   5     use vars qw($VERSION @ISA @EXPORT);
   6     $VERSION     = '0.01';
   7     require Exporter;
   8     require DynaLoader;
   9     @ISA = qw(Exporter DynaLoader);
  10     @EXPORT = qw(RectX RectY RectW RectH);
  11
  12
  13
  14
  15 #################### subroutine header begin ####################
  16
  17 =head2 sample_function
  18
  19  Usage     : How to use this function/method
  20  Purpose   : What it does
  21  Returns   : What it returns
  22  Argument  : What it wants to know
  23  Throws    : Exceptions and other anomolies
  24  Comment   : This is a sample subroutine header.
  25            : It is polite to include more pod and fewer comments.
  26
  27 See Also   :
  28
  29 =cut
  30
  31 #################### subroutine header end ####################
  32
  33 sub new
  34 {
  35         return NewRect();
  36 }
  37
  38
  39 #################### main pod documentation begin ###################
  40 ## Below is the stub of documentation for your module.
  41 ## You better edit it!
  42
  43
  44 =head1 NAME
  45
  46 SDL::Rect - Bindings to rect obj and its functions in the C SDL libs
  47
  48 =head1 SYNOPSIS
  49
  50   use SDL::Rect;
  51   blah blah blah
  52
  53
  54 =head1 DESCRIPTION
  55
  56 Stub documentation for this module was created by ExtUtils::ModuleMaker.
  57 It looks like the author of the extension was negligent enough
  58 to leave the stub unedited.
  59
  60 Blah blah blah.
  61
  62
  63 =head1 USAGE
  64
  65
  66
  67 =head1 BUGS
  68
  69
  70
  71 =head1 SUPPORT
  72
  73
  74
  75 =head1 AUTHOR
  76
  77     Kartik Thakore
  78     CPAN ID: KTHAKORE
  79     none
  80     KTHAKORE@CPAN.ORG
  81     http://yapgh.blogspot.com/
  82
  83 =head1 COPYRIGHT
  84
  85 This program is free software; you can redistribute
  86 it and/or modify it under the same terms as Perl itself.
  87
  88 The full text of the license can be found in the
  89 LICENSE file included with this module.
  90
  91
  92 =head1 SEE ALSO
  93
  94 perl(1).
  95
  96 =cut
  97
  98 #################### main pod documentation end ###################
  99
 100 bootstrap Rect $VERSION;
 101
 102 1;
 103 # The preceding line will help the module return a true value
 104