* Subtitle::MSub : implement build()

lib/Subtitle/MSub.pm

@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use utf8;
 
-use Subtitle::Utils qw(:string);
+use Subtitle::Utils qw(:string round);
 
 use base 'Subtitle::BASE';
 
@@ -80,6 +80,22 @@ sub parse {
   return scalar @{ $self->{events} };
 }
 
+sub build {
+  my ($self) = @_;
+  my @lines;
+
+  push @lines, sprintf "{1}{1}%.3f", $self->{fps};
+  foreach my $e (@{ $self->{events} }) {
+    my $show = round($e->{timing}->[0] * $self->{fps}, 0);
+    my $hide = round($e->{timing}->[1] * $self->{fps}, 0);
+    my $text = ($e->{text} =~ s{$self->{eol}}{|}gr);
+    push @lines, sprintf "{%d}{%d}%s", $show, $hide, $text;
+  }
+  push @lines, "";
+
+  return join($self->{eol} => @lines);
+}
+
 1;
 
 =pod
@@ -110,4 +126,10 @@ Recognized keys are:
 Parse subtitle from array of lines.
 Returns parsed events count on success, -1 on error
 
+=head2 C<build>
+
+  my $text = $msub->build();
+
+Builds parsed subtitle to string.
+
 =cut