=> 'rwp',
isa => Str | Undef,
);
has [ qw( meta knows carries achieved ) ] => (
is => 'ro',
isa => HashRef,
builder => sub { {} },
);
sub TO_JSON {
+{ %{ +shift } };
}
1;
m_page( $page );
my $return = $page;
undef $page;
return $return;
}
sub pp {
require JSON::PP;
print JSON::PP
->new
->pretty( 1 )
->canonical( 1 )
->convert_blessed( 1 )
->encode( shif