#!/usr/bin/perl 
use Test::More qw(no_plan); 

for(qw(PlainText SQL){ 
    require App:Config; 
    $App::Config::Backend_Type = $_;

    require App::Backend; 

    ok($App::Config::Backend_Type eq $_); 
    my $backend = App::Backend; 
    ok($backend->type eq $_); # Wrong! 

}