package Class::FlyweightWrapper;
  ...
  sub can {
    my $self = $object{shift(@_)};
    my ($method_name) = @_;
    my $sub = $self->can($method_name)
      or return;
    sub { $object{shift(@_)}->$method_name( @_ ) }
  }