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;