my $eyes :bleed = '<-whenever I see :this and :that';

##</code><code>##

use inline;
MyPackage::MySub(); # contents of sub will be inlined

no inline;
MyPackage::MySub(); # will not be inlined