is_deeply(
$foo->pack,
{
- __class__ => 'Foo',
+ __CLASS__ => 'Foo',
bars => [
map {
{
- __class__ => 'Bar',
+ __CLASS__ => 'Bar',
number => $_,
}
} (1 .. 10)
{
my $foo = Foo->unpack(
{
- __class__ => 'Foo',
+ __CLASS__ => 'Foo',
bars => [
map {
{
- __class__ => 'Bar',
+ __CLASS__ => 'Bar',
number => $_,
}
} (1 .. 10)
is_deeply(
$baz->pack,
{
- __class__ => 'Baz',
+ __CLASS__ => 'Baz',
bars => {
map {
($_ => {
- __class__ => 'Bar',
+ __CLASS__ => 'Bar',
number => $_,
})
} (1 .. 10)
{
my $baz = Baz->unpack(
{
- __class__ => 'Baz',
+ __CLASS__ => 'Baz',
bars => {
map {
($_ => {
- __class__ => 'Bar',
+ __CLASS__ => 'Bar',
number => $_,
})
} (1 .. 10)