convenience wrapper for looping through columns?

is there a convenience wrapper for looping through the column fields  
in a rose db object?

i did a data::dumper to explore the structure a bit, and there are a  
bunch of rosedb internal fields in a db object - i'm wondering if  
there's a quick way to just extract the field key/value pairs so i  
can populate something else with a rose resultset

ie
        foreach my $col ( $roseObj->columns ){
                $newObj{ $col }= $roseObj->$col ;
        }
        


-------------------------------------------------------
All the advantages of Linux Managed Hosting--Without the Cost and Risk!
Fully trained technicians. The highest number of Red Hat certifications in
the hosting industry. Fanatical Support. Click to learn more
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=107521&bid=248729&dat=121642