src/BuildSystem/BuildReport.pm

#
# BuildReport.pm
#
# Originally Written by Christopher Williams
#
# Description
#
# Interface
# ---------
# new()         : A new BuildReport object
# status()      : Build exit status
# error([message]) : Add an error message - set pass to fail, return message
#                       list
# message([message]) : add an informational message
# report([BuildReport]) : add a BuildReport/ retrieve list of buildreports

package BuildSystem::BuildReport;
require 5.004;

sub new {
        my $class=shift;
        my $self={};
        bless $self, $class;
        return $self;
}

sub status {
        my $self=shift;
        if ( @_ ) {
          $self->{status}=shift;
        }
        return $self->{status};
}

sub error {
        my $self=shift;
        if ( @_ ) {
           push @{$self->{errormessage}}, shift;
        }
        return @{$self->{errormessage}};
}

sub message {
        my $self=shift;
        if ( @_ ) {
           push @{$self->{message}}, shift;
        }
        return @{$self->{message}};
}

sub report {
        my $self=shift;
        if ( @_ ) {
           push @{$self->{reports}}, shift;
        }
        return @{$self->{reports}};
}
Revision:	1.4.2.1
Committed:	Thu Nov 2 17:37:05 2000 UTC (24 years, 6 months ago) by williamc
Content type:	text/plain
Branch:	V0_16branch
CVS Tags:	BuildSystemProto1, V0_18_0, V0_18_0alpha
Changes since 1.4:	+0 -0 lines
Log Message:	Import BuildSystem from dev + extra dependency checking
#	User	Rev	Content
1	williamc	1.1	#
2			# BuildReport.pm
3			#
4			# Originally Written by Christopher Williams
5			#
6			# Description
7			#
8			# Interface
9			# ---------
10			# new() : A new BuildReport object
11	williamc	1.2	# status() : Build exit status
12	williamc	1.1	# error([message]) : Add an error message - set pass to fail, return message
13			# list
14	williamc	1.4	# message([message]) : add an informational message
15			# report([BuildReport]) : add a BuildReport/ retrieve list of buildreports
16	williamc	1.1
17			package BuildSystem::BuildReport;
18			require 5.004;
19
20			sub new {
21			my $class=shift;
22			my $self={};
23			bless $self, $class;
24			return $self;
25			}
26
27	williamc	1.2	sub status {
28	williamc	1.1	my $self=shift;
29			if ( @_ ) {
30	williamc	1.2	$self->{status}=shift;
31	williamc	1.1	}
32	williamc	1.2	return $self->{status};
33	williamc	1.1	}
34
35			sub error {
36			my $self=shift;
37			if ( @_ ) {
38	williamc	1.4	push @{$self->{errormessage}}, shift;
39			}
40			return @{$self->{errormessage}};
41			}
42
43			sub message {
44			my $self=shift;
45			if ( @_ ) {
46	williamc	1.1	push @{$self->{message}}, shift;
47			}
48			return @{$self->{message}};
49	williamc	1.4	}
50
51			sub report {
52			my $self=shift;
53			if ( @_ ) {
54			push @{$self->{reports}}, shift;
55			}
56			return @{$self->{reports}};
57	williamc	1.1	}