Don't export specific backup interfaces by default.

4 files changed, 11 insertions, 9 deletions

diff --git a/lib/File/Backup.pm b/lib/File/Backup.pm
index 2550bdf..7e1eb5f 100644
--- a/lib/File/Backup.pm
+++ b/lib/File/Backup.pm
@@ -18,6 +18,5 @@ our @EXPORT = qw(BACKUP_NONE
                  BACKUP_AUTO
-                 backup
-                 backup_simple
-                 backup_numbered
-                 backup_auto);
+                 backup);
+
+our @EXPORT_OK = qw(backup_simple backup_numbered backup_auto);
 
@@ -205,4 +204,4 @@ called with B<BACKUP_NONE>).  On error, it calls B<croak()>.
 
-The following functions are provided for explicitly using a specific backup
-naming scheme:    
+The following functions are available for using a specific backup naming
+scheme.  These functions must be exported explicitly.
     
@@ -210,2 +209,3 @@ naming scheme:
 
+    use File::Backup qw(backup_simple);
     $backup_name = backup_simple($orig_name);
@@ -216,2 +216,3 @@ Creates simple backup.
     
+    use File::Backup qw(backup_numbered);
     $backup_name = backup_numbered($orig_name);
@@ -222,2 +223,3 @@ Creates numbered backup.
 
+    use File::Backup qw(backup_auto);
     $backup_name = backup_auto($orig_name);
diff --git a/t/00simple.t b/t/00simple.t
index d3444de..e6d3630 100644
--- a/t/00simple.t
+++ b/t/00simple.t
@@ -4,3 +4,3 @@ use strict;
 use TestBackup;
-use File::Backup;
+use File::Backup qw(backup_simple);
     
diff --git a/t/01numbered.t b/t/01numbered.t
index a464684..26a89b6 100644
--- a/t/01numbered.t
+++ b/t/01numbered.t
@@ -4,3 +4,3 @@ use strict;
 use TestBackup;
-use File::Backup;
+use File::Backup qw(backup_numbered);
     
diff --git a/t/02auto.t b/t/02auto.t
index 354e136..03f842a 100644
--- a/t/02auto.t
+++ b/t/02auto.t
@@ -4,3 +4,3 @@ use strict;
 use TestBackup;
-use File::Backup;
+use File::Backup qw(backup_numbered backup_auto);