[Moose-commits] r7396 - Class-OWL/trunk/lib/Class

[leifj at code2.0beta.co.uk]

Author: leifj
Date: 2009-01-27 06:24:16 -0800 (Tue, 27 Jan 2009)
New Revision: 7396

Modified:
   Class-OWL/trunk/lib/Class/OWL.pm
Log:
anon class maker as a nice util

Modified: Class-OWL/trunk/lib/Class/OWL.pm
===================================================================
--- Class-OWL/trunk/lib/Class/OWL.pm	2009-01-27 13:33:22 UTC (rev 7395)
+++ Class-OWL/trunk/lib/Class/OWL.pm	2009-01-27 14:24:16 UTC (rev 7396)
@@ -233,6 +233,10 @@
     \%h;
 }
 
+sub anon_class {
+	Class::OWL::MOP->create_anon_class;
+}
+
 sub from_rdf {
 	my ($self,$subject,$rdf) = @_;
 	
@@ -452,7 +456,7 @@
 		$class->name();
 	}
 	else {
-		$class = Class::OWL::MOP->create_anon_class;
+		$class = anon_class();
 		$name  = $class->name;
 	}