Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Replace use of parent with base

  • Loading branch information...
commit 60699aa0036f767d905d0cbd7ad1e85f21f3a0b2 1 parent 83da47a
Jeffrey T. Palmer jtpalmer authored
1  Changes
View
@@ -2,6 +2,7 @@ Revision history for Box2D
0.06
Added radar example [jtpalmer]
+ Replaced use of 'parent' with 'base' [jtpalmer]
0.05 27/08/2011
Added b2RayCastCallback and PerlRayCastCallback [jtpalmer]
5 examples/radar.pl
View
@@ -3,7 +3,7 @@ package My::RayCastCallback;
use warnings;
use Box2D;
-use parent qw(Box2D::b2RayCastCallback);
+use base qw(Box2D::b2RayCastCallback);
sub new {
my ( $class, $objects ) = @_;
@@ -20,8 +20,7 @@ sub ReportFixture {
my $id = $fixture->GetUserData();
-
- $self->{objects}->[$id]->{color} = 0xFF0000FF;
+ $self->{objects}->[$id]->{color} = 0xFF0000FF;
return 0;
}
3  lib/Box2D/b2RayCastCallback.pm
View
@@ -30,8 +30,9 @@ Box2D::b2RayCastCallback - Callback class for ray casts
=head1 SYNOPSIS
package My::RayCastCallback;
+ use Box2D;
- use parent qw(Box2D::b2RayCastCallback);
+ use base qw(Box2D::b2RayCastCallback);
sub ReportFixture {
my ( $self, $fixture, $point, $normal, $fraction ) = @_;
2  t/27-b2raycastcallback.t
View
@@ -4,7 +4,7 @@ use Box2D;
package My::RayCastCallback;
-use parent qw(Box2D::b2RayCastCallback);
+use base qw(Box2D::b2RayCastCallback);
sub new {
my $class = shift;
Please sign in to comment.
Something went wrong with that request. Please try again.