OLD | NEW |
1 # Copyright (C) 2013 Google Inc. All rights reserved. | 1 # Copyright (C) 2013 Google Inc. All rights reserved. |
2 # | 2 # |
3 # Redistribution and use in source and binary forms, with or without | 3 # Redistribution and use in source and binary forms, with or without |
4 # modification, are permitted provided that the following conditions are | 4 # modification, are permitted provided that the following conditions are |
5 # met: | 5 # met: |
6 # | 6 # |
7 # * Redistributions of source code must retain the above copyright | 7 # * Redistributions of source code must retain the above copyright |
8 # notice, this list of conditions and the following disclaimer. | 8 # notice, this list of conditions and the following disclaimer. |
9 # * Redistributions in binary form must reproduce the above | 9 # * Redistributions in binary form must reproduce the above |
10 # copyright notice, this list of conditions and the following disclaimer | 10 # copyright notice, this list of conditions and the following disclaimer |
(...skipping 106 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
117 my %keysValues = (); | 117 my %keysValues = (); |
118 foreach my $classAndKey (keys %{$jsonHash}) { | 118 foreach my $classAndKey (keys %{$jsonHash}) { |
119 my $key = (split('::', $classAndKey))[1]; | 119 my $key = (split('::', $classAndKey))[1]; |
120 $keysValues{$key} = jsonToPerl($jsonHash->{$classAndKey}); | 120 $keysValues{$key} = jsonToPerl($jsonHash->{$classAndKey}); |
121 } | 121 } |
122 my $object = $class->new(%keysValues); # Build object | 122 my $object = $class->new(%keysValues); # Build object |
123 return $object; | 123 return $object; |
124 } | 124 } |
125 | 125 |
126 1; | 126 1; |
OLD | NEW |