File Coverage

blib/lib/WE_Frontend/MainAny.pm

Criterion	Covered	Total	%
statement	9	42	21.4
branch	0	18	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	72	16.6

# -*- perl -*-

#
# $Id: MainAny.pm,v 1.4 2003/12/16 15:21:23 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2002 Online Office Berlin. All rights reserved.
# Copyright (C) 2002 Slaven Rezic.
# This is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License, see the file COPYING.

#
# Mail: [e-mail]
# WWW:  http://we-framework.sourceforge.net
#

package WE_Frontend::MainAny;

use strict;
use vars qw($VERSION $VERBOSE);
$VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);

$VERBOSE = 0 if !defined $VERBOSE;

sub new {
    my($class, $root) = @_;

    my $get_wesiteinfo = sub {
	my $wesiteinfo = $INC{"WEsiteinfo.pm"};
	if (!defined $wesiteinfo) {
	    die "Strange: WEsiteinfo can be required, but is not recorded in \%INC";
	}
	if (!-r $wesiteinfo) {
	    die "Strange: WEsiteinfo can be required, but the file $wesiteinfo is not accessible";
	}
	$wesiteinfo;
    };

    # try for new implementation:
    use vars qw($c);
    require File::Spec;
    my $err;
    {
	unless ($VERBOSE) {
	    open(OLDERR, ">&STDERR");
	    open(STDERR, ">".File::Spec->devnull) or die $!;
	}
	eval 'use WEsiteinfo qw($c)';
	$err = $@;
	if ($VERBOSE && $err) {
	    warn "warn at line " . __LINE__ . ": " . $err;
	}
	unless ($VERBOSE) {
	    open(STDERR, ">&OLDERR");
	    close OLDERR;
	}
    }
    if (!$err) {
	my $wesiteinfo = $get_wesiteinfo->();
	require WE_Frontend::Main2;
	return WE_Frontend::Main->new(-root => $root, -config => $c);
    }

    # try for old implementation
    eval 'use WEsiteinfo qw($rootdir)';
    $err = $@;
    if ($VERBOSE && $err) {
	warn "warn at line " . __LINE__ . ": " . $err;
    }
    if (!$err) {
	require WE_Frontend::Main;
	return WE_Frontend::Main->new($root);
    }

    die $err;
}

1;

__END__