sub import {
    ...
    no strict 'refs';
    *{__PACKAGE__.'::error'} = $flag eq 'warn' ? .... # reference to 'warn'
    ...
}

... 

error('Something went wrong!') if $a != $b;