6 my $self = $class->SUPER::new(@_);
9 Carp::croak SDL::GetError();
11 return bless $self => $class;;
21 use Test::More tests => 6;
23 my $rect = MyRect->new(0,0,0,0);
25 isa_ok($rect, 'SDL::Rect');
26 isa_ok($rect, 'MyRect');
27 can_ok($rect, qw(x y w h));
28 can_ok($rect, qw(new foo));