* Subtitle::BASE : add to_string() and to_file()

lib/Subtitle/BASE.pm

@@ -42,6 +42,21 @@ sub from_file {
   return $self->parse(\@lines);
 }
 
+sub to_string {
+  my ($self) = @_;
+  return $self->build;
+}
+
+sub to_file {
+  my ($self, $path) = @_;
+  open my $FH, '>', $path
+    or return $self->log(error => "can't open file: $path -- $!");
+  print $FH $self->build;
+  close $FH;
+
+  return 1;
+}
+
 1;
 
 =pod