trunk/CIAO/bin/PerlCIAO/TestUtils_Base.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

#File generated by C:\ACE_wrappers_devel\ACE_wrappers\TAO\CIAO\bin\PerlCIAO\generate_container.pl.
#Input file: TestUtils.base.
#Code generator author: Stoyan Paunov
#

#class TestUtils_Base
package TestUtils_Base;
use strict;

#Class constructor :)
sub new {
    my ($class) = @_;

    #Create a reference to an anonymous hash
    my $self = {
        _processes        => undef,
        _files            => undef,
        _wd               => undef
     };

    #Bless the hash.
    bless $self, $class;
    return $self;
}

#accessor/mutator method for processes
sub processes {
    my ( $self, $processes ) = @_;

    $self->{_processes} = $processes
         if defined ($processes);

    return $self->{_processes};
}

#accessor/mutator method for files
sub files {
    my ( $self, $files ) = @_;

    $self->{_files} = $files
         if defined ($files);

    return $self->{_files};
}

#accessor/mutator method for wd
sub wd {
    my ( $self, $wd ) = @_;

    $self->{_wd} = $wd
         if defined ($wd);

    return $self->{_wd};
}

#print method for the class
sub print {
    my ($self) = @_;

    my $f;

    $f = defined ($self->{_processes})
          ? $self->{_processes} : "not defined";
    printf ("processes: %s\n", $f);

    $f = defined ($self->{_files})
          ? $self->{_files} : "not defined";
    printf ("files: %s\n", $f);

    $f = defined ($self->{_wd})
          ? $self->{_wd} : "not defined";
    printf ("wd: %s\n", $f);

}

#class return value
1;