Delegation Example

Consider a Universal IM Client.

    sub send {
        my $self = shift;
        $self->{messager}->send(@_);
    }

$self->{messager} contains an IM protocol handler.

You can plug any protocol you like into $self->{messager}

• provided they have similar interfaces

• you can change protocols on a per object basis (as opposed to per class for inheritence)

• you can change protocols on the fly