src/Utilities/SearchPath.pm


BEGIN { 
print "Utilities::SearchPath: I am USED!!","\n";
};

=head1 NAME

Utilities::SearchPath - Utility for path searching.

=head1 SYNOPSIS

        my $obj = Utilities::SearchPath->new();

=head1 METHODS

=over

=cut

package SearchPath;

=item   C<new()>

Create a new SearchPath object.
   
=cut
   
sub new {
        my $class=shift;
        $self={};
        bless $self, $class;
        return $self;
}

=back

=head1 AUTHOR

Originally Written by Christopher Williams.
   
=head1 MAINTAINER

Shaun ASHBY 

=cut
Revision:	1.3
Committed:	Wed Aug 17 11:11:48 2005 UTC (19 years, 8 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_0_3-p4, V1_0_3-p3, V1_0_3-p2, before110xmlBRmerge, V1_0_4p1, V1_0_3-p1, V1_0_3, V1_0_2, V1_0_2_p1
Branch point for:	v103_with_xml, v103_branch
Changes since 1.2:	+6 -1 lines
Log Message:	Added more POD doc.
#	Content
1
2	BEGIN {
3	print "Utilities::SearchPath: I am USED!!","\n";
4	};
5
6	=head1 NAME
7
8	Utilities::SearchPath - Utility for path searching.
9
10	=head1 SYNOPSIS
11
12	my $obj = Utilities::SearchPath->new();
13
14	=head1 METHODS
15
16	=over
17
18	=cut
19
20	package SearchPath;
21
22	=item C<new()>
23
24	Create a new SearchPath object.
25
26	=cut
27
28	sub new {
29	my $class=shift;
30	$self={};
31	bless $self, $class;
32	return $self;
33	}
34
35	=back
36
37	=head1 AUTHOR
38
39	Originally Written by Christopher Williams.
40
41	=head1 MAINTAINER
42
43	Shaun ASHBY
44
45	=cut