| ... | ... |
@@ -1,4 +1,6 @@ |
| 1 | 1 |
0.1722 |
| 2 |
+ - added {KEY => {OPTION_KEY => OPTION_VALUE} syntax
|
|
| 3 |
+ to EXPERIMENTAL DBIx::Custom::Mapper map method |
|
| 2 | 4 |
- added {KEY => sub { VALUE }} syntax
|
| 3 | 5 |
to EXPERIMETNAL DBIx::Custom::Mapper map method |
| 4 | 6 |
- removed EXPERIMENTAL wrap option from select method |
| ... | ... |
@@ -29,21 +29,13 @@ sub map {
|
| 29 | 29 |
my $new_key; |
| 30 | 30 |
|
| 31 | 31 |
# Get mapping information |
| 32 |
- $rule{$key} = [$key, $rule{$key}] if ref $rule{$key} eq 'CODE';
|
|
| 33 |
- if (ref $rule{$key} eq 'ARRAY') {
|
|
| 34 |
- foreach my $some (@{$rule{$key}}) {
|
|
| 35 |
- $new_key = $some unless ref $some; |
|
| 36 |
- $condition = $some->{condition} if ref $some eq 'HASH';
|
|
| 37 |
- $value_cb = $some if ref $some eq 'CODE'; |
|
| 38 |
- } |
|
| 39 |
- } |
|
| 40 |
- elsif (defined $rule{$key}) {
|
|
| 41 |
- $new_key = $rule{$key};
|
|
| 32 |
+ $rule{$key} = [$rule{$key}] if ref $rule{$key} ne 'ARRAY';
|
|
| 33 |
+ foreach my $some (@{$rule{$key}}) {
|
|
| 34 |
+ $new_key = $some unless ref $some; |
|
| 35 |
+ $condition = $some->{condition} if ref $some eq 'HASH';
|
|
| 36 |
+ $value_cb = $some if ref $some eq 'CODE'; |
|
| 42 | 37 |
} |
| 43 |
- else {
|
|
| 44 |
- $new_key = $key; |
|
| 45 |
- } |
|
| 46 |
- |
|
| 38 |
+ $new_key = $key unless defined $new_key; |
|
| 47 | 39 |
$value_cb ||= sub { $_[0] };
|
| 48 | 40 |
$condition ||= $self->condition; |
| 49 | 41 |
$condition = $self->_condition_to_sub($condition); |