#! /usr/bin/perl -w
#############################################################################
## Author:      Herbert Breunung
## Purpose:     Kephra starter
## Created:     09/5/2008
## Copyright:   (c) Herbert Breunung
## Licence:     GPL
#############################################################################

=head1 NAME

kephra - Kephra starter script

=head1 SYNOPSIS

    > kephra [<files>]   # start with certain files open

for main Docs please go to the main Module named L<Kephra>.

=cut

use strict;
use vars qw{ $ALLINC $DEV_START};
our $VERSION = '0.13';
our $STANDALONE = '';



use Benchmark ();
my $t0;

BEGIN {
	# set it true if you like to have a relocatable (by simple copy) editor
	$STANDALONE = 'dev' if $ENV{KEPHRA_DEV_START};
	# set it true if this distro includes a full runtime env (KRE)
	$ALLINC = 0;

	push @INC, 'kre/lib', 'kre/site' if $ALLINC;
	push @INC, 'src' if $STANDALONE;

	$t0 = Benchmark->new; 
}

use Kephra;

$Kephra::STANDALONE = $STANDALONE;
$Kephra::BENCHMARK = 0;           # switch for benchmark output

print "src loaded in:",
	Benchmark::timestr( Benchmark::timediff( Benchmark->new, $t0 ) ), "\n"
	if $Kephra::BENCHMARK;


# first splashscreen without caution to app but fast
#use Wx::Perl::SplashFast ($pathes{config}.$Kephra::temp{file}{img}{splashscreen}, 150) ;

Kephra->new->MainLoop;            # starter for the main app
