File Coverage

blib/lib/WE_Frontend/Plugin/WE_Navigation.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition	0	6	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	29	48.2

# -*- perl -*-

#
# $Id: WE_Navigation.pm,v 1.11 2005/03/02 12:20:01 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::Plugin::WE_Navigation;
use base qw(WE_Frontend::Plugin::Navigation);

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

require WE_Frontend::Plugin::WE_Navigation::Object;

sub new {
    my($class, $context, $params) = @_;
    $params ||= {};
    my $self = $class->SUPER::new($context, $params);
    $self->{Config} = $params->{config} || eval { $context->stash->get("config") } || {};
    $self->{LocalConfig} = $params->{localconfig} || eval { $context->stash->get("localconfig") } || {};
    bless $self, $class;
}

sub Object {
    "WE_Frontend::Plugin::WE_Navigation::Object";
}

1;

__END__