6 role CatalystX::Declare::Controller::QualifyClassNames {
10 method _qualify_class_name (Str $type, Str $name) {
12 my $app = ref($self->_application) || $self->_application;
15 join('::', $app, $type, $name),
16 join('::', 'Catalyst', $type, $name),
20 for my $class (@possibilities) {
23 if Class::MOP::is_class_loaded($class);
26 if Class::Inspector->installed($class);
29 croak sprintf q(Unable to locate %s %s named '%s', tried: %s),
30 ($type =~ /^[aeiuo]/i ? 'an' : 'a'),
33 join(', ', @possibilities),