src/ActiveDoc/Checker.pm

#
# Checker.pm
#
# Originally Written by Christopher Williams
#
# Description
# -----------
# Base class for all checkers inherit and override the check method
#
# Interface
# ---------
# new()         : A new Checker object
# check(param)  : Run a check on the given value 
# addchecker(checker)   : Add a checker object to be run in additon

package Checker;
require 5.004;

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

sub check {
        my $self=shift;
        my $checkvalue=shift;

        $self->runchecks();
}

sub runchecks {
        my $self=shift;
        my $checkvalue=shift;

        foreach $check ( @{$self->{checkers}} ) {
          $check->check($checkvalue);
        }
}

sub addchecker {
        my $self=shift;
        my $checker=shift;

        push @{$self->{checkers}}, $checker;
}
Revision:	1.1
Committed:	Fri Dec 17 08:36:22 1999 UTC (25 years, 4 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	williamc	1.1	#
2			# Checker.pm
3			#
4			# Originally Written by Christopher Williams
5			#
6			# Description
7			# -----------
8			# Base class for all checkers inherit and override the check method
9			#
10			# Interface
11			# ---------
12			# new() : A new Checker object
13			# check(param) : Run a check on the given value
14			# addchecker(checker) : Add a checker object to be run in additon
15
16			package Checker;
17			require 5.004;
18
19			sub new {
20			my $class=shift;
21			$self={};
22			bless $self, $class;
23			return $self;
24			}
25
26			sub check {
27			my $self=shift;
28			my $checkvalue=shift;
29
30			$self->runchecks();
31			}
32
33			sub runchecks {
34			my $self=shift;
35			my $checkvalue=shift;
36
37			foreach $check ( @{$self->{checkers}} ) {
38			$check->check($checkvalue);
39			}
40			}
41
42			sub addchecker {
43			my $self=shift;
44			my $checker=shift;
45
46			push @{$self->{checkers}}, $checker;
47			}