#perl -T
use strict;
use warnings;
use Test::More tests => 2 + 1;
use Test::NoWarnings;
BEGIN {
use_ok('Tie::Sub');
}
tie my %sub, 'Tie::Sub', sub{ shift() + 1 };
cmp_ok(
$sub{1},
'==',
'2',
'check function',
);