Presetup for the body args, so that we can set body type types

kthakore · Jun 15, 2012 · 10f4441 · 10f4441
1 parent e36fc1c
commit 10f4441
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/lib/Avenger/Actor.pm b/lib/Avenger/Actor.pm
@@ -19,8 +19,11 @@ sub new {
     my $class = shift; 
     my %args = @_;
     my $body_hash = delete $args{body};
+
+       $body_hash = $class::pre_setup( $body_hash );
     my $body = world->create_body( $body_hash );
 
+
     if(my $v =  delete %{$body_hash}{velocity} )
     {
         $body->velocity( @$v )

diff --git a/lib/Zemmings/Actor/Zemming.pm b/lib/Zemmings/Actor/Zemming.pm
@@ -1,6 +1,12 @@
 package Zemmings::Actor::Zemming;
 use Avenger::Actor;
 
+sub pre_setup {
+    my $args = shift;
+    $args->{type} = 'dynamic';
+    return $args;
+};
+
 sub setup {
     my $self = shift;