Select Code to Download

package MyRxA::quant;
sub raw {
  my $self = shift;
  return "%";
}

package MyRxB::quant::visual;
sub visual {
  my $self = shift;
  return $self->raw . $self->{data}->visual;
}