return join('-', map { $row->{$_} } @{$self->id_cols});
}
+=head1 AUTHOR
+
+ Luke Saunders <luke.saunders@gmail.com>
+
+=head1 THANKS
+
+As usual, thanks to Matt S Trout for the sanity check.
+
+=head1 LICENSE
+
+ This library is free software under the same license as perl itself
+
+=cut
+
1;