@ -22,7 +22,7 @@ sub log {
sub chomp {
my ($self, $line) = @_;
return unless defined $line;
return $line =~ s/[\r\n]+$//or;
return $line =~ s/(^\xEF\xBB\xBF|[\r\n]+$)//ogr;
}
sub trim {