| 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 |