|
Lines 638-644
sub from_api_mapping {
Link Here
|
| 638 |
|
638 |
|
| 639 |
my $to_api_mapping = $self->to_api_mapping; |
639 |
my $to_api_mapping = $self->to_api_mapping; |
| 640 |
|
640 |
|
| 641 |
unless ( $self->{_from_api_mapping} ) { |
641 |
unless ( defined $self->{_from_api_mapping} ) { |
|
|
642 |
$self->{_from_api_mapping} = {}; |
| 642 |
while (my ($key, $value) = each %{ $to_api_mapping } ) { |
643 |
while (my ($key, $value) = each %{ $to_api_mapping } ) { |
| 643 |
$self->{_from_api_mapping}->{$value} = $key |
644 |
$self->{_from_api_mapping}->{$value} = $key |
| 644 |
if defined $value; |
645 |
if defined $value; |
| 645 |
- |
|
|