move Base:: to FML::Base::

6 files changed, 12 insertions, 181 deletions

diff --git a/fml/lib/Base/Errors.pm b/fml/lib/Base/Errors.pm
deleted file mode 100644
index cd0882a0..00000000
--- a/fml/lib/Base/Errors.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $Id$
-# $FML$
-#
-
-package Base::Errors;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-use Carp;
-
-require Exporter;
-@ISA       = qw(Exporter);
-@EXPORT_OK = qw(error_reason error error_reset);
-
-=head1 NAME
-
-Base::Errors.pm - error handling utilities
-
-=head1 SYNOPSIS
-
-	package Something;
-	use Base::Errors qw(error_reason error error_reset);
-
-	sub xxx
-	{
-		if something errors ...
-		$self->error_reason( error reason );
-	}
-
-When you use Something module,
-
-	use Something;
-	$obj = new Something;
-	unless ($obj->error) { $obj->do_somting( ...); };
-
-
-=head1 DESCRIPTION
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Base::Errors.pm appeared in fml5.
-
-=cut
-
-
-sub error_reason
-{
-    my ($self, $mesg) = @_;
-    $self->{'_error_reason'} = $mesg;
-}
-
-
-sub error
-{
-    my ($self, $args) = @_;
-    return $self->{'_error_reason'};
-}
-
-
-sub error_reset
-{
-    my ($self, $args) = @_;
-    my $msg = $self->{'_error_reason'};
-    undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
-    undef $self->{'_error_action'} if defined $self->{'_error_action'};
-    return $msg;
-}
-
-
-1;
diff --git a/fml/lib/Base/File.pm b/fml/lib/Base/File.pm
deleted file mode 100644
index 20fcf809..00000000
--- a/fml/lib/Base/File.pm
+++ /dev/null
@@ -1,83 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $Id$
-# $FML$
-#
-
-package Base::File;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $ErrorString);
-use Carp;
-
-
-require Exporter;
-@ISA       = qw(Exporter);
-@EXPORT_OK = qw(mkdirhier touch);
-
-=head1 NAME
-
-Base::Errors.pm - error handling utilities
-
-=head1 SYNOPSIS
-
-	package Something;
-	use Base::Errors qw(error_reason error error_reset);
-
-	sub xxx
-	{
-		if something errors ...
-		$self->error_reason( error reason );
-	}
-
-When you use Something module,
-
-	use Something;
-	$obj = new Something;
-	unless ($obj->error) { $obj->do_somting( ...); };
-
-
-=head1 DESCRIPTION
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-Base::Errors.pm appeared in fml5.
-
-=cut
-
-sub error       { return $ErrorString;}
-sub error_reset { undef $ErrorString;}
-
-sub mkdirhier
-{
-    my ($dir, $mode) = @_;
-
-    eval q{ 
-	use File::Path;
-	mkpath($dir, 0, $mode);
-    };
-    $ErrorString = $@;
-}
-
-
-sub touch
-{
-
-}
-
-
-1;
diff --git a/fml/lib/FML/Base/Errors.pm b/fml/lib/FML/Base/Errors.pm
index cd0882a0..5c166c22 100644
--- a/fml/lib/FML/Base/Errors.pm
+++ b/fml/lib/FML/Base/Errors.pm
@@ -8,7 +8,7 @@
 # $FML$
 #
 
-package Base::Errors;
+package FML::Base::Errors;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK);
 use Carp;
@@ -19,12 +19,12 @@ require Exporter;
 
 =head1 NAME
 
-Base::Errors.pm - error handling utilities
+FML::Base::Errors.pm - error handling utilities
 
 =head1 SYNOPSIS
 
 	package Something;
-	use Base::Errors qw(error_reason error error_reset);
+	use FML::Base::Errors qw(error_reason error error_reset);
 
 	sub xxx
 	{
@@ -54,7 +54,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Base::Errors.pm appeared in fml5.
+FML::Base::Errors.pm appeared in fml5.
 
 =cut
 
diff --git a/fml/lib/FML/Base/File.pm b/fml/lib/FML/Base/File.pm
index 20fcf809..f17ff7cc 100644
--- a/fml/lib/FML/Base/File.pm
+++ b/fml/lib/FML/Base/File.pm
@@ -8,7 +8,7 @@
 # $FML$
 #
 
-package Base::File;
+package FML::Base::File;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $ErrorString);
 use Carp;
@@ -20,12 +20,12 @@ require Exporter;
 
 =head1 NAME
 
-Base::Errors.pm - error handling utilities
+FML::Base::Errors.pm - error handling utilities
 
 =head1 SYNOPSIS
 
 	package Something;
-	use Base::Errors qw(error_reason error error_reset);
+	use FML::Base::Errors qw(error_reason error error_reset);
 
 	sub xxx
 	{
@@ -55,7 +55,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
 
 =head1 HISTORY
 
-Base::Errors.pm appeared in fml5.
+FML::Base::Errors.pm appeared in fml5.
 
 =cut
 
diff --git a/fml/lib/FML/SequenceFile.pm b/fml/lib/FML/SequenceFile.pm
index 72329f7c..fd44c25d 100644
--- a/fml/lib/FML/SequenceFile.pm
+++ b/fml/lib/FML/SequenceFile.pm
@@ -12,7 +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);
+use FML::Base::Errors qw(error_reason error error_reset);
 
 require Exporter;
 @ISA = qw(Exporter);
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm
index 922f6756..9bd8a7dc 100644
--- a/fml/lib/FML/Ticket/System.pm
+++ b/fml/lib/FML/Ticket/System.pm
@@ -13,7 +13,7 @@ package FML::Ticket::System;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-use Base::Errors qw(error_reason error error_reset);
+use FML::Base::Errors qw(error_reason error error_reset);
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -53,9 +53,9 @@ sub update_ticket_trace_cache
     printf "%o\n", (0777 & $umask);
 
     unless (-d $db_dir) {
-	use Base::File qw(mkdirhier);
+	use FML::Base::File qw(mkdirhier);
 	mkdirhier($db_dir, 0755);
-	$self->error_reason( Base::File->error() );
+	$self->error_reason( FML::Base::File->error() );
 	return;
     }