The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;

{
    package QX;
    use strict;
    use warnings;
    use Path::Class ();

    use base 'Catalyst::Plugin::ConfigLoader';

    sub config { {} }
    sub path_to { shift; Path::Class::dir('/home/foo/QX-0.9.5/' . shift); }
}

my $app = bless {}, 'QX';
my ($path, $extension) = $app->get_config_path;
is $path, Path::Class::dir( '/home/foo/QX-0.9.5/qx' )->stringify;
is $extension, undef;

done_testing;