1 files changed, 3 insertions, 16 deletions
diff --git a/fml/lib/FML/SequenceFile.pm b/fml/lib/FML/SequenceFile.pm
index dc90a48f..72329f7c 100644
--- a/fml/lib/FML/SequenceFile.pm
+++ b/fml/lib/FML/SequenceFile.pm
@@ -12,6 +12,7 @@ package FML::SequenceFile;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
+use Base::Errors qw(error_reason error error_reset);
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -34,7 +35,7 @@ sub increment_id
     my $seq_file = $file || $self->{ _sequence_file };
 
     unless ($seq_file) {
-	$self->error_is_why("the sequence file is not specified");
+	$self->error_reason("the sequence file is not specified");
 	return 0;
     };
 
@@ -55,7 +56,7 @@ sub increment_id
 	$rh->close;
     }
     else {
-	$self->error_is_why("cannot open the sequence file");
+	$self->error_reason("cannot open the sequence file");
 	return 0;
     }
 
@@ -70,20 +71,6 @@ sub increment_id
 }
 
 
-sub error
-{
-    my ($self) = @_;
-    return $self->{ _error };
-}
-
-
-sub error_is_why
-{
-    my ($self, $msg) = @_;
-    $self->{ _error } = $msg;
-}
-
-
 =head1 NAME
 
 FML::SequenceFile.pm - what is this