From 54a47ff33d9a0b5b2a470995a3b8e396d8ff9ca9 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Tue, 24 Jul 2018 02:39:52 +1000
Subject: [PATCH] * Subtitle::BASE : rename to ::Format

---
 lib/Subtitle/{BASE.pm => Format.pm} | 6 +++---
 lib/Subtitle/Format/MSub.pm         | 2 +-
 lib/Subtitle/Format/SRT.pm          | 2 +-
 lib/Subtitle/Format/SSA.pm          | 2 +-
 t/{base.t => format.t}              | 4 ++--
 5 files changed, 8 insertions(+), 8 deletions(-)
 rename lib/Subtitle/{BASE.pm => Format.pm} (95%)
 rename t/{base.t => format.t} (87%)

diff --git a/lib/Subtitle/BASE.pm b/lib/Subtitle/Format.pm
similarity index 95%
rename from lib/Subtitle/BASE.pm
rename to lib/Subtitle/Format.pm
index 5d3a636..470a89a 100644
--- a/lib/Subtitle/BASE.pm
+++ b/lib/Subtitle/Format.pm
@@ -1,4 +1,4 @@
-package Subtitle::BASE;
+package Subtitle::Format;
 
 use strict;
 use warnings;
@@ -73,11 +73,11 @@ sub to_file {
 
 =head1 NAME
 
-Subtitle::BASE -- base class of subtitle file
+Subtitle::Format - base class of subtitle file
 
 =head1 SYNOPSYS
 
-  use base 'Subtitle::BASE';
+  use base 'Subtitle::Format';
 
 This module should not be used directly.
 
diff --git a/lib/Subtitle/Format/MSub.pm b/lib/Subtitle/Format/MSub.pm
index cc1c70b..774117f 100644
--- a/lib/Subtitle/Format/MSub.pm
+++ b/lib/Subtitle/Format/MSub.pm
@@ -6,7 +6,7 @@ use utf8;
 
 use Subtitle::Utils qw(:string round);
 
-use base 'Subtitle::BASE';
+use base 'Subtitle::Format';
 
 sub new {
   my ($class, %args) = @_;
diff --git a/lib/Subtitle/Format/SRT.pm b/lib/Subtitle/Format/SRT.pm
index d06a8e6..c9b5ad8 100644
--- a/lib/Subtitle/Format/SRT.pm
+++ b/lib/Subtitle/Format/SRT.pm
@@ -6,7 +6,7 @@ use utf8;
 
 use Subtitle::Utils qw(:string :timing);
 
-use base 'Subtitle::BASE';
+use base 'Subtitle::Format';
 
 sub new {
   my ($class, %args) = @_;
diff --git a/lib/Subtitle/Format/SSA.pm b/lib/Subtitle/Format/SSA.pm
index 0b1a398..bc94f02 100644
--- a/lib/Subtitle/Format/SSA.pm
+++ b/lib/Subtitle/Format/SSA.pm
@@ -11,7 +11,7 @@ use Subtitle::Format::SSA::File;
 
 use Subtitle::Utils qw(:string);
 
-use base 'Subtitle::BASE';
+use base 'Subtitle::Format';
 
 sub new {
   my ($class, %args) = @_;
diff --git a/t/base.t b/t/format.t
similarity index 87%
rename from t/base.t
rename to t/format.t
index 45a42fb..7f82571 100644
--- a/t/base.t
+++ b/t/format.t
@@ -3,13 +3,13 @@ use warnings;
 
 use Test::More tests => 5;
 
-require_ok('Subtitle::BASE');
+require_ok('Subtitle::Format');
 
 {
   package Subtitle::Dummy;
   use strict;
   use warnings;
-  use base 'Subtitle::BASE';
+  use base 'Subtitle::Format';
 
   sub new {
     my $class = shift;