perl - 如何在构建时根据输入创建(或不创建)类实例方法？

Question

我将如何创建我的类，以使某些方法仅在将某些值传递给构造函数时才会存在于实例中？

也许更通用的提问方式是:如何向现有的类实例添加方法？

Answer 1

您可以根据标志将匿名子附加到对象:

use strict;
use warnings;
package Object;
sub new {
   my $class = shift;
   my $self = bless {}, $class;
   my %args = @_; 
   if ($args{method}) {
       $self->{method} = sub { print "hello\n" }
   }   
   return $self;
}

sub method {
    my $self = shift;
    if (not defined $self->{method}) {
        warn "Not bound\n";
        return;
    }   
    $self->{method}->();
}
1;

使用:

use Object;
my $obj1 = Object->new(method=>1);
$obj1->method();
my $obj2 = Object->new();
$obj2->method();

您可以通过相同的接口(interface)将其扩展到许多方法。