Test/perl/test_action.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 use SL::Controller::Mebil;
   5 use SL::LXDebug;
   6
   7 $::lxdebug = new LXDebug;
   8
   9 my $m = new SL::Controller::Mebil;
  10 $m->action_calcmap;