[Rt-commit] [svn] r1599 - in Business-SLA/trunk: . lib/Business t

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Thu Sep 30 16:39:04 2004
New Revision: 1599

Added:
   Business-SLA/trunk/t/
Modified:
   Business-SLA/trunk/Makefile.PL
   Business-SLA/trunk/lib/Business/SLA.pm
Log:
Cleaning up for release

Modified: Business-SLA/trunk/Makefile.PL
==============================================================================
--- Business-SLA/trunk/Makefile.PL	(original)
+++ Business-SLA/trunk/Makefile.PL	Thu Sep 30 16:39:04 2004
@@ -6,7 +6,8 @@
     VERSION_FROM => 'lib/Business/SLA.pm', # finds $VERSION
     AUTHOR       => 'Linda Julien (leira at bestpractical.com)',
     PREREQ_PM	=> { Test::Inline => 0,
-		     Set::IntSpan => 0},
+    		     Business::Hours => 0
+		     },
     ABSTRACT     => '',
 );
 

Modified: Business-SLA/trunk/lib/Business/SLA.pm
==============================================================================
--- Business-SLA/trunk/lib/Business/SLA.pm	(original)
+++ Business-SLA/trunk/lib/Business/SLA.pm	Thu Sep 30 16:39:04 2004
@@ -4,16 +4,8 @@
 use warnings;
 use Business::Hours;
 
-BEGIN {
-	use Exporter ();
-	use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+	use vars qw ($VERSION);
 	$VERSION     = 0.01;
-	@ISA         = qw (Exporter);
-	#Give a hoot don't pollute, do not export more than needed by default
-	@EXPORT      = qw ();
-	@EXPORT_OK   = qw ();
-	%EXPORT_TAGS = ();
-}
 
 ########################################### main pod documentation begin ##
 
@@ -135,8 +127,6 @@
 
 =begin testing
 
-use_ok  (Business::Hours);
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -177,8 +167,6 @@
 
 =begin testing
 
-use_ok  (Business::Hours);
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -214,8 +202,6 @@
 
 =begin testing
 
-use_ok  (Business::Hours);
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -292,8 +278,6 @@
 
 =begin testing
 
-use_ok  (Business::Hours);
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -389,7 +373,6 @@
 
 =begin testing
 
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -427,7 +410,6 @@
 
 =begin testing
 
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -478,7 +460,6 @@
 
 =begin testing
 
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;
 
@@ -514,7 +495,6 @@
 
 =begin testing
 
-use_ok  (Business::SLA);
 
 my $sla = new Business::SLA;