FS::part_pkg::discount_Mixin - Mixin class for part_pkg:: classes that can be discounted.
package FS::part_pkg::...; use base qw( FS::part_pkg::discount_Mixin );
sub calc_recur { ... my $discount = $self->calc_discount($cust_pkg, $$sdate, $details, $param); $charge -= $discount; ... }
Takes all the arguments of calc_recur. Calculates and returns the amount by which to reduce the charge; also increments months used on the discount.
If there is a setup fee, this will be called once with 'setup_charge' => the setup fee amount (and should return the discount to be applied to the setup charge, if any), and again without it (for the recurring fee discount). PARAM_HASHREF carries over between the two invocations.
Hey! The above document had some coding errors, which are explained below:
Unknown directive: =head
'=item' outside of any '=over'
=over without closing =back