use strict;
use warnings;
use Data::Dump qw/pp dd/;

package BLA;

# poor mans import
BEGIN {
    *__todo__ = \&TODO::__todo__;
}



sub add {
    my ( $arg1,$arg2 ) = @_ ;

    __todo__ "check argument type";

    return $arg1+$arg2;
}

add 1,2;


# other module
package TODO;
use Carp;

sub __todo__ {

    carp "TODO: $_[0]";
}

##</code><code>##

TODO: check argument type at d:/tmp/pm/t_carp.pl line 17.