[Rt-commit] r8886 - rtfm/branches/2.1-TESTING/lib/RT/URI

[ruz at bestpractical.com]

Author: ruz
Date: Tue Sep  4 10:39:47 2007
New Revision: 8886

Modified:
   rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm
   rtfm/branches/2.1-TESTING/lib/RT/URI/fsck_com_rtfm.pm

Log:
* minor

Modified: rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm
==============================================================================
--- rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm	(original)
+++ rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm	Tue Sep  4 10:39:47 2007
@@ -23,9 +23,10 @@
 # END LICENSE BLOCK
 package RT::URI::a;
 
-use RT::FM::Article;
-
 use strict;
+use warnings;
+
+use RT::FM::Article;
 use base qw/RT::URI::fsck_com_rtfm/;
 
 my $scheme = "a";

Modified: rtfm/branches/2.1-TESTING/lib/RT/URI/fsck_com_rtfm.pm
==============================================================================
--- rtfm/branches/2.1-TESTING/lib/RT/URI/fsck_com_rtfm.pm	(original)
+++ rtfm/branches/2.1-TESTING/lib/RT/URI/fsck_com_rtfm.pm	Tue Sep  4 10:39:47 2007
@@ -18,15 +18,11 @@
 
 package RT::URI::fsck_com_rtfm;
 
-use RT::FM::Article;
-
-use RT::URI::base;
-
-use vars qw (@ISA);
- at ISA = qw/RT::URI::base/;
-
-
+use strict;
+use warnings;
 
+use RT::FM::Article;
+use base qw/RT::URI::base/;
 
 =head2 LocalURIPrefix 
 
@@ -48,8 +44,6 @@
 
 =end testing
 
-
-
 =cut
 
 sub LocalURIPrefix {
@@ -58,10 +52,6 @@
     return ($prefix);
 }
 
-
-
-
-
 =head2 URIForObject RT::article
 
 Returns the RT URI for a local RT::article object
@@ -88,13 +78,10 @@
 
 =head2 ParseObject $ArticleObj
 
-When handed an RT::FM::Article object, figure out its URI
-
+When handed an L<RT::FM::Article> object, figure out its URI
 
 =cut
 
-
-
 =head2 ParseURI URI
 
 When handed an fsck.com-rtfm: URI, figures out things like whether its a local article
@@ -102,7 +89,6 @@
 
 =cut
 
-
 sub ParseURI { 
     my $self = shift;
     my $uri = shift;
@@ -118,8 +104,6 @@
 	    $self->{'uri'} = $uri;
  	}
  
- 
- 
        #If it's a local URI, load the article object and return its URI
     if ( $self->IsLocal) {
    
@@ -149,8 +133,6 @@
 Returns true if this URI is for a local article.
 Returns undef otherwise.
 
-
-
 =cut
 
 sub IsLocal {
@@ -184,7 +166,6 @@
 
 =cut
 
-
 sub Scheme {
     my $self = shift;
 	return "fsck.com-rtfm";
@@ -197,7 +178,6 @@
 
 =cut
 
-
 sub HREF {
     my $self = shift;
     if ($self->IsLocal && $self->Object) {
@@ -208,7 +188,6 @@
     }
 }
 
-
 =head2 AsString
 
 Return "Article 23"