SOMECLASS->_addbuf($buffer) if $buffer && @$buffer;

##</code><code>##

sub _addbuf {
    print STDERR "_addbuf(", Dumper(\@_), ")\n";
    ...
    if (...) {
       print STDERR "making a new item...\n";
    }
}