is(
$yaml,
q{---
-__class__: Foo
+__CLASS__: Foo
array:
- 1
- 2
9: ~
number: 10
object:
- __class__: Foo
+ __CLASS__: Foo
number: 2
string: foo
},
{
my $foo = Foo->thaw(q{---
-__class__: Foo
+__CLASS__: Foo
array:
- 1
- 2
9: ~
number: 10
object:
- __class__: Foo
+ __CLASS__: Foo
number: 2
string: foo
});