src/ActiveDoc/Check.pm


BEGIN
   {
   print "ActiveDoc::Check: I AM used!","\n";
   };

#
# Check.pm
#
# Originally Written by Christopher Williams
#
# Description
# -----------
# Base class --- checks should inherit from this
#
# Interface
# ---------
# new()         : A new Check object
# check(dir)    : check a directory for the libs
# errormessage()     : Returns any messages from the last check
# _setmessage(string) : set the error message

package ActiveDoc::Check;
require 5.001;

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

sub _setmessage {
        my $self=shift;
        my $string=shift;

        $self->{message}=$string;
}

sub errormessage {
        my $self=shift;
        return $self->{message};
}

# Dummy - always returns passed
sub check {
        my $self=shift;
        return 0;
}
Revision:	1.2
Committed:	Wed Aug 17 11:04:33 2005 UTC (19 years, 8 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_0_2, V1_0_2_p1
Changes since 1.1:	+6 -0 lines
Log Message:	Labelled possibly unused packages to check whether possible to remove them later.
#	User	Rev	Content
1	sashby	1.2
2			BEGIN
3			{
4			print "ActiveDoc::Check: I AM used!","\n";
5			};
6
7	williamc	1.1	#
8			# Check.pm
9			#
10			# Originally Written by Christopher Williams
11			#
12			# Description
13			# -----------
14			# Base class --- checks should inherit from this
15			#
16			# Interface
17			# ---------
18			# new() : A new Check object
19			# check(dir) : check a directory for the libs
20			# errormessage() : Returns any messages from the last check
21			# _setmessage(string) : set the error message
22
23			package ActiveDoc::Check;
24			require 5.001;
25
26			sub new {
27			my $class=shift;
28			$self={};
29			bless $self, $class;
30			return $self;
31			}
32
33			sub _setmessage {
34			my $self=shift;
35			my $string=shift;
36
37			$self->{message}=$string;
38			}
39
40			sub errormessage {
41			my $self=shift;
42			return $self->{message};
43			}
44
45			# Dummy - always returns passed
46			sub check {
47			my $self=shift;
48			return 0;
49			}