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