| Package-Transporter documentation | view source | Contained in the Package-Transporter distribution. |
Package::Transporter::Generator::Drain::Enumerated - Generate constant functions with enumerated values
package Parent_Class;
use Package::Transporter sub{eval shift}, sub {
$_[0]->register_drain('::Enumerated', 'FOR_FAMILY',
'ATB_', qw(NAME STOCK PRICE));
};
package Child_Class;
BEGIN {our @ISA = ('Parent_Class')}; # more like 'use parent ...'
use Package::Transporter sub{eval shift}, sub {
$_[0]->register_drain('::Enumerated', 'FOR_SELF',
'ATB_', qw(SALE));
};
print STDOUT 'ATB_PRICE=', ATB_PRICE, "\n";
print STDOUT 'ATB_SALE=', ATB_SALE, "\n";
exit(0);
Enumeration is restarted in each affected package. (Caution: this is implicit drain.)
The following packages provide support for objects as array references and are therefore loosely related to Transporter: Class-Gomor and Class-ArrayObjects.
The following packages treat arrays as objects, which this base class is not about, but that also clarifies things: List::oo, Class-Builtin, Devel-Ladybug, and Object-Array.
Please see the documentation of the upstream package Package::Transporter.
| Package-Transporter documentation | view source | Contained in the Package-Transporter distribution. |