The module doesn't like white space at the front of its lines
Bouncable.pm
use strict;
package Bouncable;
use Class::Interface;
interface; # this actually declares the interface
sub bounce;
sub getBounceBack;
1;
Ball.pm
use strict;
package Ball;
use Class::Interface;
implements( 'Bouncable' );
sub bounce {
my $self = shift;
print "The ball is bouncing @ ".$self->getBounceBack." strength"
}
sub getBounceBack {
return 10;
}
1;