fixed exception namespace
Robert 'phaylon' Sedlacek [Tue, 12 Jun 2012 22:06:40 +0000 (22:06 +0000)]
lib/System/Introspector/Util.pm

index 5943490..d699799 100644 (file)
@@ -15,13 +15,13 @@ our @EXPORT_OK = qw(
 );
 
 do {
-    package System::Introspection::_Exception;
+    package System::Introspector::_Exception;
     use Moo;
     has message => (is => 'ro');
 };
 
-sub fail { die System::Introspection::_Exception->new(message => shift) }
-sub is_report_exception { ref(shift) eq 'System::Introspection::_Exception' }
+sub fail { die System::Introspector::_Exception->new(message => shift) }
+sub is_report_exception { ref(shift) eq 'System::Introspector::_Exception' }
 
 sub files_from_dir {
     my ($dir) = @_;