use strict;
use warnings;
-use Test::More no_plan => 1;
+use Test::More tests => 47;
BEGIN {
use_ok('MooseX::Storage');
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)