1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
|
=pod
=encoding utf-8
=head1 PURPOSE
Tests that Type::Params v2 C<signature_for> delays signature compilation.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2022-2023 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Types::Common -types;
use Type::Params -sigs;
my $compiled = 0;
my $MyStr = Str->create_child_type(
name => 'MyStr',
constraint => sub { 1 },
inlined => sub {
++$compiled;
Str->inline_check( pop );
},
);
signature_for xyz => ( pos => [ $MyStr ] );
sub xyz {
my $got = shift;
return scalar reverse $got;
}
is(
$compiled,
0,
'type constraint has not been compiled yet',
);
is( xyz('foo'), 'oof', 'function worked' );
is(
$compiled,
1,
'type constraint has been compiled',
);
is( xyz('bar'), 'rab', 'function worked' );
is(
$compiled,
1,
'type constraint has not been re-compiled',
);
done_testing;
|