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

package SDL::Rect;
use strict;


    use vars qw($VERSION @ISA);
    $VERSION     = '0.01';
    require DynaLoader;
    @ISA = qw(DynaLoader);
    
    
#################### subroutine header begin ####################

=head2 sample_function

 Usage     : How to use this function/method
 Purpose   : What it does
 Returns   : What it returns
 Argument  : What it wants to know
 Throws    : Exceptions and other anomolies
 Comment   : This is a sample subroutine header.
           : It is polite to include more pod and fewer comments.

See Also   : 

=cut

#################### subroutine header end ####################

sub new
{
	my $self = shift;
	my ($x, $y, $w, $h) = @_;
	$self = \SDL::Rect::NewRect($x, $y, $w, $h);

	return $self;
}

#################### main pod documentation begin ###################
## Below is the stub of documentation for your module. 
## You better edit it!


=head1 NAME

SDL::Rect - Bindings to rect obj and its functions in the C SDL libs

=head1 SYNOPSIS

  use SDL::Rect;
  blah blah blah


=head1 DESCRIPTION

Stub documentation for this module was created by ExtUtils::ModuleMaker.
It looks like the author of the extension was negligent enough
to leave the stub unedited.

Blah blah blah.


=head1 USAGE


=head1 BUGS


=head1 SUPPORT


=head1 AUTHOR

    Kartik Thakore
    CPAN ID: KTHAKORE
    none
    KTHAKORE@CPAN.ORG
    http://yapgh.blogspot.com/

=head1 COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.


=head1 SEE ALSO

perl(1).

=cut

#################### main pod documentation end ###################

bootstrap SDL::Rect; 
1;
# The preceding line will help the module return a true value
Commit	Line	Data
6e437027	1	package SDL::Rect;
	2	use strict;
	3
	4
275f555f	5	use vars qw($VERSION @ISA);
6e437027	6	$VERSION = '0.01';
6e437027	7	require DynaLoader;
275f555f	8	@ISA = qw(DynaLoader);
275f555f	9
6e437027	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
275f555f	32	sub new
	33	{
	34	my $self = shift;
	35	my ($x, $y, $w, $h) = @_;
	36	$self = \SDL::Rect::NewRect($x, $y, $w, $h);
6e437027	37
275f555f	38	return $self;
275f555f	39	}
6e437027	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
275f555f	102	bootstrap SDL::Rect;
6e437027	103	1;
	104	# The preceding line will help the module return a true value
	105