#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use Benchmark::Dumb qw(timethese);
use Perinci::Sub::Wrapper qw(wrap_sub);
timethese(0, {
'wrap_minimal' => sub { wrap_sub(sub=>sub{}, meta=>{v=>1.1}) },
'wrap_typical' => sub { wrap_sub(sub=>sub{}, meta=>{v=>1.1, summary=>"Some summary", args=>{a1=>{schema=>"int*", req=>1, pos=>0}, a2=>{schema=>"str"}, a3=>{schema=>"str*",}, a4=>{schema=>"str"}, a5=>{schema=>"str*"}}}) },
});