The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Package::Transporter::Generator::Constant_Function::Flatened - generate constant functions with manually set flatened values

SYNOPSIS

        package Parent_Class;
        use Package::Transporter sub{eval shift}, sub {
                $_[0]->register_drain('::Flatened', 'FOR_FAMILY', 'ATB_', 
                        'NAME' => 'Apple',
                        'STOCK' => 71,
                        'PRICE' => 9.99);
        };
        
        package Child_Class;
        BEGIN {our @ISA = ('Parent_Class')}; # more like 'use parent ...'
        use Package::Transporter sub{eval shift}, sub {
                $_[0]->register_drain('::Flatened', 'FOR_SELF',
                        'ATB_', 'SALE' => 'yes');
        };
        
        print STDOUT 'ATB_PRICE=', ATB_PRICE, "\n";
        print STDOUT 'ATB_SALE=', ATB_SALE, "\n";
        exit(0);

DESCRIPTION

Enumeration is restarted in each affected package. (Caution: this is implicit drain.)

ANYTHING ELSE

Please see the documentation of the upstream package Package::Transporter.