src/BuildSystem/BuildReport.pm

#
# BuildReport.pm
#
# Originally Written by Christopher Williams
#
# Description
#
# Interface
# ---------
# new()         : A new BuildReport object
# pass()        : returns 1=OK 0=Fail
# error([message]) : Add an error message - set pass to fail, return message
#                       list

package BuildSystem::BuildReport;
require 5.004;

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

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

sub error {
        my $self=shift;
        $self->{pass}=0;
        if ( @_ ) {
           push @{$self->{message}}, shift;
        }
        return @{$self->{message}};
}
Revision:	1.1
Committed:	Tue Sep 12 13:01:14 2000 UTC (24 years, 7 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Log Message:	First draft
#	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			# pass() : returns 1=OK 0=Fail
12			# error([message]) : Add an error message - set pass to fail, return message
13			# list
14
15			package BuildSystem::BuildReport;
16			require 5.004;
17
18			sub new {
19			my $class=shift;
20			my $self={};
21			bless $self, $class;
22			return $self;
23			}
24
25			sub pass {
26			my $self=shift;
27			if ( @_ ) {
28			$self->{pass}=shift;
29			}
30			return $self->{pass};
31			}
32
33			sub error {
34			my $self=shift;
35			$self->{pass}=0;
36			if ( @_ ) {
37			push @{$self->{message}}, shift;
38			}
39			return @{$self->{message}};
40			}