[PATCH] DT::Language alternate namespaces

[Joshua Hoblitt]

Dave,

Here is a small patch to allow arbitrary namespaces to be passed to DT::Language.  
This is useful for modules that want to include their own DT::Language subclasses or 
want to generate information at runtime.

Cheers,

-J

--
Index: lib/DateTime/Language.pm
===================================================================
RCS file: /cvsroot/perl-date-time/modules/DateTime.pm/lib/DateTime/Language.pm,v
retrieving revision 1.15
diff -u -r1.15 Language.pm
--- lib/DateTime/Language.pm    27 Apr 2003 23:40:47 -0000      1.15
+++ lib/DateTime/Language.pm    30 May 2003 00:05:28 -0000
@@ -77,7 +77,14 @@
         $real_lang = $lang;
     }

-    my $real_class = "DateTime::Language::$real_lang";
+    my $real_class;
+
+    if ( $lang =~ /::/ ) {
+        $real_class = $lang;
+    } else {
+        $real_class = "DateTime::Language::$real_lang";
+    }
+
     eval "use $real_class";
     die $@ if $@;

--