6 # Remove all relevant env variables to avoid accidental fail
7 foreach my $name ( grep { m{^(CATALYST)} } keys %ENV ) {
17 use base 'Catalyst::Plugin::ConfigLoader';
20 sub path_to { shift; '/home/foo/QX-0.9.5/' . shift; }
23 my $app = bless {}, 'QX';
24 my ($path, $extension) = $app->get_config_path;
25 is $path, '/home/foo/QX-0.9.5/qx';