Class::Delegation 1.7.1

Class::Delegation is a Perl object-oriented delegation.

SYNOPSIS

package Car;

use Class::Delegation
send => steer,
to => ["left_front_wheel", "right_front_wheel"],

send => drive,
to => ["right_rear_wheel", "left_rear_wheel"],
as => ["rotate_clockwise", "rotate_anticlockwise"]

send => power,
to => flywheel,
as => brake,

send => brake,
to => qr/.*_wheel$/,

send => halt
to => -SELF,
as => brake,

send => qr/^MP_(.+)/,
to => mp3,
as => sub { $1 },

send => -OTHER,
to => mp3,

send => debug,
to => -ALL,
as => dump,

send => -ALL,
to => logger,
;