Test/perl/test_action.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 use SL::Controller::Mebil;
   5 use SL::DB;
   6 use SL::LXDebug;
   7
   8 $::lxdebug = new LXDebug;
   9
  10 my $db = new SL::DB;
  11
  12 my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo");
  13
  14 my $m = new SL::Controller::Mebil;
  15 $m->action_calcmap;