Permalink
Browse files

Replace use of parent with base

  • Loading branch information...
1 parent 83da47a commit 60699aa0036f767d905d0cbd7ad1e85f21f3a0b2 @jtpalmer jtpalmer committed Aug 29, 2011
Showing with 6 additions and 5 deletions.
  1. +1 −0 Changes
  2. +2 −3 examples/radar.pl
  3. +2 −1 lib/Box2D/b2RayCastCallback.pm
  4. +1 −1 t/27-b2raycastcallback.t
View
1 Changes
@@ -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]
View
5 examples/radar.pl
@@ -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;
}
View
3 lib/Box2D/b2RayCastCallback.pm
@@ -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 ) = @_;
View
2 t/27-b2raycastcallback.t
@@ -4,7 +4,7 @@ use Box2D;
package My::RayCastCallback;
-use parent qw(Box2D::b2RayCastCallback);
+use base qw(Box2D::b2RayCastCallback);
sub new {
my $class = shift;

0 comments on commit 60699aa

Please sign in to comment.