package src::bo::Rubber;

use strict;
use warnings;

use Carp;

use src::bo::Duck;
use base qw/src::bo::Duck/;

use src::bo::CannotFly;
use src::bo::CanSqeek;

sub new {
    my $class   = shift;
    my $extends = $class->SUPER::new(@_);
    $extends->setFlyBehaviour( src::bo::CannotFly->new() );
    $extends->setQuackBehaviour( src::bo::CanSqeek->new() );
    bless( $extends, $class );
    return $extends;
}