nopaste.txt

my $cat = $cat_rs->find(1);
$cat->config($config);
$cat->get_product(1);

sub config {
  # ler config do disco aqui
}

sub get_product {
  my($self, $sku) = @_;
  my $prod = $self->products->find({sku => 1});
  $self->mangle_discount($prod);
  return $prod;
}

sub mangle_discount {
  my($self, $prod) = @_;
  $prod->discount(0) unless
    $prod->discount < $self->config->{max});
}