Commits

Herbert Breunung committed dbf4884

make starr test preperation more efficent

Comments (0)

Files changed (3)

 pm_to_blib*
 *.tar.gz
 .lwpcookies
+.hg
 cover_db
 pod2htm*.tmp
 Kephra-*
             # flag for benchmark loggings
 
 sub start {
+	start_worker_thread();
 	load_libs();
 	print "good\n";
 }
 
 sub load_libs {
+	require Benchmark;
 	require Encode;
 	require Encode::Guess;
 	require File::Find;
 	require File::UserConfig;
 	require Config::General;
 	require YAML::Tiny;
+	require PPI;
 	require Mouse;
 	require Wx;
 	require Wx::AUI;
 	require Wx::Perl::ProcessStream;
 	
-	require Kephra::App;
+	require Kephra::API;   # 
+	require Kephra::App;   # visible main application
+	#require Kephra::App::MenuBar;
+	#require Kephra::App::TabBar;
+	#require Kephra::CommandList;
+	#require Kephra::Config::Localisation;
+	#require Kephra::Document;
+	#require Kephra::EventTable;
+	require Kephra::Logger;
+	#require Kephra::Plugin;
+	require Kephra::Worker;
 }
 
 
 
 sub configdir {
 	$_[0] and $_[0] eq $NAME and shift;
-	File::UserConfig->configdir(@_);
+	print File::UserConfig->configdir(@_);
 }
 
 sub debug{
 
 =head1 NAME
 
-Kephra - GUI Texteditor that wants to work as you prefer
+Kephra - beautiful Texteditor that works as you prefer
 
 =head1 SYNOPSIS
 
-#!perl -T
+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
 
 use Test::More tests => 1;
 
     use_ok( 'Kephra' ) || print "Bail out!\n";
 }
 
+#require Kephra;
 diag( "Testing Kephra $Kephra::VERSION, Perl $], $^X" );