Browse Source

* Subtitle::BASE : rename to ::Format

master
Alex 'AdUser' Z 6 years ago
parent
commit
54a47ff33d
  1. 6
      lib/Subtitle/Format.pm
  2. 2
      lib/Subtitle/Format/MSub.pm
  3. 2
      lib/Subtitle/Format/SRT.pm
  4. 2
      lib/Subtitle/Format/SSA.pm
  5. 4
      t/format.t

6
lib/Subtitle/BASE.pm → lib/Subtitle/Format.pm

@ -1,4 +1,4 @@
package Subtitle::BASE; package Subtitle::Format;
use strict; use strict;
use warnings; use warnings;
@ -73,11 +73,11 @@ sub to_file {
=head1 NAME =head1 NAME
Subtitle::BASE -- base class of subtitle file Subtitle::Format - base class of subtitle file
=head1 SYNOPSYS =head1 SYNOPSYS
use base 'Subtitle::BASE'; use base 'Subtitle::Format';
This module should not be used directly. This module should not be used directly.

2
lib/Subtitle/Format/MSub.pm

@ -6,7 +6,7 @@ use utf8;
use Subtitle::Utils qw(:string round); use Subtitle::Utils qw(:string round);
use base 'Subtitle::BASE'; use base 'Subtitle::Format';
sub new { sub new {
my ($class, %args) = @_; my ($class, %args) = @_;

2
lib/Subtitle/Format/SRT.pm

@ -6,7 +6,7 @@ use utf8;
use Subtitle::Utils qw(:string :timing); use Subtitle::Utils qw(:string :timing);
use base 'Subtitle::BASE'; use base 'Subtitle::Format';
sub new { sub new {
my ($class, %args) = @_; my ($class, %args) = @_;

2
lib/Subtitle/Format/SSA.pm

@ -11,7 +11,7 @@ use Subtitle::Format::SSA::File;
use Subtitle::Utils qw(:string); use Subtitle::Utils qw(:string);
use base 'Subtitle::BASE'; use base 'Subtitle::Format';
sub new { sub new {
my ($class, %args) = @_; my ($class, %args) = @_;

4
t/base.t → t/format.t

@ -3,13 +3,13 @@ use warnings;
use Test::More tests => 5; use Test::More tests => 5;
require_ok('Subtitle::BASE'); require_ok('Subtitle::Format');
{ {
package Subtitle::Dummy; package Subtitle::Dummy;
use strict; use strict;
use warnings; use warnings;
use base 'Subtitle::BASE'; use base 'Subtitle::Format';
sub new { sub new {
my $class = shift; my $class = shift;
Loading…
Cancel
Save