constants.pl

use strict;
use warnings;
use Test::More;

use Capture::Tiny ':all';
use Devel::Peek;

package Yappo {
    sub proto () { 1 }
};

subtest 'prototype' => sub {
    my(undef, $stdout, undef) = capture {
        Dump(Yappo::proto);
    };
    unlike $stdout, qr/PV = /; # failed !

    my $x = Yappo::proto . ''; # create PV value for Yappo :: proto
    (undef, $stdout, undef) = capture {
        Dump(Yappo::proto);
    };
    unlike $stdout, qr/PV = /; # failed !
};

done_testing;

__END__
$ perl -MO=Deparse
sub Yappo::proto () { 1 }
use Test::More;
use Capture::Tiny (':all');
use Devel::Peek;
package main;
use warnings;
use strict;
{;};
subtest('prototype', sub {
    my(undef, $stdout, undef) = capture(sub {
        Dump(1);
    }
    );
    unlike $stdout, qr/PV = /;
    my $x = '1';
    (undef, $stdout, undef) = capture(sub {
        Dump(1);
    }
    );
    unlike $stdout, qr/PV = /;
}
);
done_testing();