Commit | Line | Data |
---|---|---|
bfd90409 | 1 | package SDL::Rect; |
e4ab5b2e | 2 | #use strict; |
bfd90409 | 3 | |
bfd90409 | 4 | |
e4ab5b2e | 5 | require Exporter; |
6 | require DynaLoader; | |
bfd90409 | 7 | |
e4ab5b2e | 8 | @ISA = qw(Exporter DynaLoader); |
9 | # Items to export into callers namespace by default. Note: do not export | |
10 | # names by default without a very good reason. Use EXPORT_OK instead. | |
11 | # Do not simply export all your public functions/methods/constants. | |
12 | @EXPORT = qw( | |
bfd90409 | 13 | |
e4ab5b2e | 14 | ); |
15 | #$VERSION = '0.01'; | |
bfd90409 | 16 | |
e4ab5b2e | 17 | bootstrap SDL::Rect; |
18 | ||
19 | # Preloaded methods go here. | |
bfd90409 | 20 | |
96493475 | 21 | # TODO: mangle with the symbol table to create an alias |
22 | # to sub x. We could call x from inside the sub but that | |
23 | # would be another call and rects are a time-critical object. | |
24 | sub left { | |
25 | my $self = shift; | |
e4ab5b2e | 26 | RectX($self,@_); |
96493475 | 27 | } |
28 | ||
bfd90409 | 29 | sub x { |
30 | my $self = shift; | |
e4ab5b2e | 31 | RectX($self,@_); |
bfd90409 | 32 | } |
33 | ||
69e6e191 | 34 | ### TODO: see 'left' above (this is an 'alias' to sub y) |
96493475 | 35 | sub top { |
36 | my $self = shift; | |
e4ab5b2e | 37 | RectY($self,@_); |
96493475 | 38 | } |
39 | ||
bfd90409 | 40 | sub y { |
41 | my $self = shift; | |
e4ab5b2e | 42 | RectY($self,@_); |
bfd90409 | 43 | } |
44 | ||
69e6e191 | 45 | ### TODO: see 'left' above (this is an 'alias' to sub width) |
96493475 | 46 | sub w { |
47 | my $self = shift; | |
e4ab5b2e | 48 | RectW($self,@_); |
96493475 | 49 | } |
50 | ||
bfd90409 | 51 | sub width { |
52 | my $self = shift; | |
e4ab5b2e | 53 | RectW($self,@_); |
bfd90409 | 54 | } |
55 | ||
69e6e191 | 56 | ### TODO: see 'left' above (this is an 'alias' to sub height) |
96493475 | 57 | sub h { |
58 | my $self = shift; | |
e4ab5b2e | 59 | RectH($self,@_); |
96493475 | 60 | } |
61 | ||
bfd90409 | 62 | sub height { |
63 | my $self = shift; | |
e4ab5b2e | 64 | RectH($self,@_); |
bfd90409 | 65 | } |
66 | ||
bfd90409 | 67 | |
e4ab5b2e | 68 | # Autoload methods go after __END__, and are processed by the autosplit program. |
23dbccd4 | 69 | |
e4ab5b2e | 70 | 1; |
71 | __END__ |