sub Smart::Comments::warn {
    print FOOOO @_;
    if($_[-1] !~ /\n$/){
      printf "at %s line %l ", (caller)[1,2];
    }
}