sub base_price{
    my $self = shift;

    if ( not $self->{_base_price} ){
        $self->{_base_price}
            =  $self->{_quantity} * $self->{_item_price};
    }
    return $self->{_base_price};
}