package MyClass;
use Mojo::Base -base;
use Mojo::DynamicMethods -dispatch;
sub BUILD_DYNAMIC {
my ($class, $method, $dyn_methods) = @_;
return sub {...};
}
sub add_helper {
my ($self, $name, $cb) = @_;
Mojo::DynamicMethods::register 'MyClass', $self, $name, $cb;
}
package main;
# Generate methods dynamically (and hide them from "$obj->can(...)")
my $obj = MyClass->new;
$obj->add_helper(foo => sub { warn 'Hello Helper!' });
$obj->foo;
To opt your class into dynamic dispatch simply pass the "-dispatch" flag.
use Mojo::DynamicMethods -dispatch;
And then implement a "BUILD_DYNAMIC" method in your class, making sure that the key you use to lookup methods in $dyn_methods is the same thing you pass as $ref to ``register''.
sub BUILD_DYNAMIC {
my ($class, $method, $dyn_methods) = @_;
return sub {
my ($self, @args) = @_;
my $dynamic = $dyn_methods->{$self}{$method};
return $self->$dynamic(@args) if $dynamic;
my $package = ref $self;
croak qq{Can't locate object method "$method" via package "$package"};
};
}
Note that this module is EXPERIMENTAL and might change without warning!
Mojo::DynamicMethods::register $class, $ref, $name, $cb;
Registers the method $name as eligible for dynamic dispatch for $class, and sets $cb to be looked up for $name by reference $ref in a dynamic method constructed by "BUILD_DYNAMIC".