#! /usr/bin/perl

use strict;
use warnings;
use vars qw(@ISA @EXPORT $VERSION);

# include MODUL in module search path
BEGIN { push(@INC,"Z:/test"); }

use test::log;



my @XLOGVALUES001;
my $XLOGVALUES001;

while(@XLOGVALUES001)
{
shift(@XLOGVALUES001);
}

$XLOGVALUES001[0] = "1";        #logfile schreiben: ja = 1     nein = 2
$XLOGVALUES001[1] = "logfile";  #name des logfiles:  "logfile.txt"
$XLOGVALUES001[2] = 'C:\WINNT\system32\config'; #pfad des logfiles:   


&test::log::logfilename(\@XLOGVALUES001);


$log2 = test::log->logfilename();
print "Zurueckgegebener Wert von der subroutine: ".$log2;

package test::log;

use strict;
use warnings;
$test::log::VERSION = "0.0.1";

#============================================================================
## @cmethod
# The default constructor of class test::log
#============================================================================
sub new {
        my $this=shift;
        my $class=ref($this) || $this;
        my $self= {};

        #class attributes
        $self->{attr1}=undef;

        #bless the object
        bless($self,$class);

        #return the reference to the blesses object
        return($self);
}


sub logfilename {
        my $self = shift;
                        
        my $logfilename;
        
        if (ref $self eq 'ARRAY' and $self->[1]) {
                $logfilename = ($self->[1]); 
                 }
        else {
                $logfilename = "DEFAULT_logfile_name";
                }
                
        return $logfilename;
        
}

1;