);
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) = @_;