Select Code to Download

price_type_id  price_type_label
1              Sale Price
2              List Price
3              Cost

sub SALE_PRICE_ID {1}
sub LIST_PRICE_ID {2}
sub COST_ID       {3}

sub cost {
    return $_[0]->get_price(PriceType->COST_ID);
...

    return $price;
}