Index: /lang/perl/NanoA/trunk/lib/NanoA.pm
===================================================================
--- /lang/perl/NanoA/trunk/lib/NanoA.pm (revision 24562)
+++ /lang/perl/NanoA/trunk/lib/NanoA.pm (revision 24563)
@@ -231,10 +231,4 @@
 }
 
-sub mobile_agent {
-    my $self = shift;
-    require_once('HTTP/MobileAgent.pm');
-    $self->{stash}->{'HTTP::MobileAgent'} ||= HTTP::MobileAgent->new();
-}
-
 sub read_file {
     my $fname = shift;
Index: /lang/perl/NanoA/trunk/plugin/mobile.pm
===================================================================
--- /lang/perl/NanoA/trunk/plugin/mobile.pm (revision 24561)
+++ /lang/perl/NanoA/trunk/plugin/mobile.pm (revision 24563)
@@ -70,3 +70,11 @@
 }
 
+no warnings 'redefine';
+
+sub NanoA::mobile_agent {
+    my $self = shift;
+    NanoA::require_once('HTTP/MobileAgent.pm');
+    $self->{stash}->{'HTTP::MobileAgent'} ||= HTTP::MobileAgent->new();
+}
+
 1;