| … | |
… | |
| 218 | } |
218 | } |
| 219 | |
219 | |
| 220 | sub My::Object::THAW { |
220 | sub My::Object::THAW { |
| 221 | my ($class, $serialiser, $type, $id, $variant) = @_; |
221 | my ($class, $serialiser, $type, $id, $variant) = @_; |
| 222 | |
222 | |
| 223 | $class-<new (type => $type, id => $id, variant => $variant) |
223 | $class->new (type => $type, id => $id, variant => $variant) |
| 224 | } |
224 | } |
| 225 | |
225 | |
| 226 | =head1 BUGS |
226 | =head1 BUGS |
| 227 | |
227 | |
| 228 | The use of L<overload> makes this module much heavier than it should be |
228 | The use of L<overload> makes this module much heavier than it should be |
