sub slurp {
     my ($self,$stuff)=@_;
     $self->get($stuff,"SLURP");
}
sub get {
#.....
        if ($slurp) { 
# difference..
        } else {
#...
        }
}