1package FEAR::API::Translate;
2
3use strict;
4use Switch;
5use Spiffy -base;
6use FEAR::API::Translate::Backend;
7
8if($ENV{TRANSLATE_FEAR}){
9    print '
10use LWP::UserAgent;
11my @url;
12my $ua = LWP::UserAgent->new;
13';
14}
15
16sub __translate(@) {
17    my $self = shift;
18    my $subname = shift;
19    no strict 'refs';
20    print 'FEAR::API::Translate::Backend::'.$subname,$/;
21    &{'FEAR::API::Translate::Backend::'.$subname};
22}
23
24
251;
26