Select Code to Download

sub toString{
    my $self = shift;
...
        $author{$self},
        $approved{$self};
}

sub toString{
    my $self = shift;
...
        $date{$self},
        $self->SUPER::toString();
}

# QuotePlus (sub)class
sub _dump{
...
     );
}