view release on metacpan or  search on metacpan

t/efficient.t  view on Meta::CPAN

use warnings;

use Test::More tests => 5;

use JSON::PP;
use JSON::String;

my $codec = JSON::EncodeCounter->new->canonical;
JSON::String->codec($codec);

sub count_encodings(&$$) {
    my($block, $expected_count, $msg) = @_;

    $codec->reset_encode_counter();
    $block->();
    is($codec->encode_counter, $expected_count, $msg);
}


my $orig = { a => 1, b => 2, c => 3 };
my $string = $codec->encode($orig);