1 |
< |
# |
2 |
< |
# SearchPath.pm |
3 |
< |
# |
4 |
< |
# Originally Written by Christopher Williams |
5 |
< |
# |
6 |
< |
# Description |
7 |
< |
# |
8 |
< |
# Interface |
9 |
< |
# --------- |
10 |
< |
# new() : A new SearchPath object |
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={}; |
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 |