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