view release on metacpan or  search on metacpan

t/is_constant.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 7;

BEGIN { use_ok "Sub::Metadata", qw(sub_is_constant); }

ok !sub_is_constant(\&sub_is_constant);

sub t0;
sub t1 ();
sub t2 { 123 }
sub t3 () { 123 }
ok !sub_is_constant(\&t0);
ok !sub_is_constant(\&t1);
ok !sub_is_constant(\&t2);
ok sub_is_constant(\&t3);

sub mc($) { my $c = $_[0]; return sub () { $c } }

ok +(("$]" >= 5.019003 && "$]" < 5.020) xor sub_is_constant(mc(123)));

1;