diff --git a/lib/Subtitle/BASE.pm b/lib/Subtitle/BASE.pm index 3e65e50..36439f7 100644 --- a/lib/Subtitle/BASE.pm +++ b/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