将对象传递给 Perl 方法

Question

我正在处理以下问题。我是 Perl 的新手。

我的想法是我有一个类，它有数组作为成员/字段（在哈希中）。
我们将这个类命名为ProductContainer。

我还有另一堂课Product。这些类位于单独的文件（单独的模块）中。所以我只需要在ProductContainer 对象（内部数组）中添加一个Product 对象。

Java 中我需要的简单示例。

public class ProductContainer {
 private List<Product> mProductsList;
 public addProduct(Product product) {
  this.mProductList.add(product);
  }
}

Answer 1

不清楚您到底在问什么，因为您没有显示任何 Perl 代码。

如果您将bless 用于您的对象，下面将向您展示如何执行此操作。我把所有的包放在同一个文件中。另请注意，add 方法会检查其参数的类型。

#!/usr/bin/perl
use warnings;
use strict;

{   package ProductContainer;

    use Carp;

    sub new { bless {}, shift }

    sub add {
        my $self = shift;
        my $product = shift;
        croak "Invalid member" unless UNIVERSAL::DOES($product, 'Product');
        push @{ $self->{mProductsList} }, $product;
    }
}

{   package Product;

    sub new {
        my $class = shift;
        bless { name => shift }, $class
    }
}

my $p  = 'Product'->new('Product 1');
my $pc = 'ProductContainer'->new;
$pc->add($p);
$pc->add('Product 2');   # Exception!