Parent Directory | Revision Log
+ initial check-in
1 | ## ------------------------------------------------------------------------ |
2 | ## $Id$ |
3 | ## ------------------------------------------------------------------------ |
4 | ## $Log$ |
5 | ## ------------------------------------------------------------------------ |
6 | |
7 | |
8 | package Torus; |
9 | |
10 | use strict; |
11 | use warnings; |
12 | |
13 | use base qw( DesignPattern::Object DesignPattern::Bridge ); |
14 | |
15 | sub _init { |
16 | my $self = shift; |
17 | |
18 | $self->load("Config"); |
19 | $self->loadConfig(); |
20 | |
21 | $self->load("Core"); |
22 | $self->initDebugLevel(); |
23 | } |
24 | |
25 | 1; |
MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
Powered by ViewVC 1.1.26 |