Yuki Kimoto cleanup
5f9d4f7 13 years ago
1 contributor
41 lines | 0.702kb
  1. package DBIx::Custom::Util;
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use base 'Exporter';
  7.  
  8. our @EXPORT_OK = qw/_array_to_hash _subname/;
  9.  
  10. sub _array_to_hash {
  11. my $array = shift;
  12. return $array if ref $array eq 'HASH';
  13. return unless $array;
  14. my $hash = {};
  15. for (my $i = 0; $i < @$array; $i += 2) {
  16. my $key = $array->[$i];
  17. my $f = $array->[$i + 1];
  18. if (ref $key eq 'ARRAY') {
  19. foreach my $k (@$key) {
  20. $hash->{$k} = $f;
  21. }
  22. }
  23. else {
  24. $hash->{$key} = $f;
  25. }
  26. }
  27. return $hash;
  28. }
  29.  
  30. sub _subname { '(' . (caller 1)[3] . ')' }
  31.  
  32. 1;
  33.  
  34. =head1 NAME
  35.  
  36. DBIx::Custom::Util - Utility class
  37.