+ Subtitle::Utils

lib/Subtitle/BASE.pm

@@ -19,12 +19,6 @@ sub log {
   return 1;
 }
 
-sub chomp {
-  my ($self, $line) = @_;
-  return unless defined $line;
-  return $line =~ s/(^\xEF\xBB\xBF|[\r\n]+$)//ogr;
-}
-
 sub parse_timing {
   my ($self, $str) = @_;
   my $time = 0.0;
@@ -75,12 +69,6 @@ sub build_timing {
   return sprintf($self->{timing_fmt}, $hrs, $min, $sec, $msec);
 }
 
-sub trim {
-  my ($self, $line) = @_;
-  return unless defined $line;
-  return $line =~ s/(^\s+|\s+$)//or;
-}
-
 sub events {
   my ($self) = @_;
 

lib/Subtitle/Utils.pm

@@ -0,0 +1,69 @@
+package Subtitle::Utils;
+
+use strict;
+use warnings;
+
+use base 'Exporter';
+
+our @EXPORT_OK = qw(
+  chomp_all strip_bom trim
+);
+
+our %EXPORT_TAGS = (
+  string => [qw(chomp_all strip_bom trim)],
+);
+
+
+## string sunctions
+
+sub chomp_all {
+  return unless @_;
+  return $_ =~ s/[\r\n]+$//o for @_;
+}
+
+sub strip_bom {
+  return unless @_;
+  return $_[0] =~ s/^\xEF\xBB\xBF//o;
+}
+
+sub trim {
+  return unless @_;
+  $_ =~ s/(^\s+|\s+$)//go for @_;
+}
+
+1;
+
+=pod
+
+=head1 NAME
+
+Subtitle::Utils -- usefull generic routines
+
+=head1 SYNOPSYS
+
+  use Subtitle::Utils qw(:all);
+
+=head1 FUNCTIONS / STRINGS
+
+  use Subtitle::Utils qw(:string);
+
+=head2 C<chomp_all>
+
+  chomp($line);
+  chomp($line1, $line2);
+
+In-place strips newlines (CR/LF) from line.
+
+=head2 C<strip_bom>
+
+  strip_bom($line);
+
+In-place strips Unicode's BOM (Byte Order Mark) from line.
+
+=head2 C<trim>
+
+  trim($line);
+
+In-place strips leading and trailing spaces from the given string
+
+=cut

t/utils-string.t

@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use Subtitle::Utils qw(:string);
+
+my $line;
+
+$line = " test \r\n";
+chomp_all($line);
+is($line, ' test ');
+
+$line = "\xEF\xBB\xBFtest";
+strip_bom($line);
+is($line, 'test');
+
+$line = '  test  ';
+trim($line);
+is($line, 'test');
+
+exit 0;