src/ActiveDoc/IncFile.pm

#
# IncFile.pm
#
# Originally Written by Christopher Williams
#
# Description
# -----------
# Private Class for PreProcessedFile
#
# Interface
# ---------
# new(dbstore)          : A new IncFile object
# filename()            : return the filename

package ActiveDoc::IncFile;
require 5.004;
use ActiveDoc::Parse;

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

sub filename()
   {
   my $self=shift;
   @_ : $self->{filename} = shift
      ? $self->{filename};
   }

1;
Revision:	1.4
Committed:	Fri Jan 14 17:36:42 2011 UTC (14 years, 4 months ago) by muzaffar
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.3:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	merged SCRAM_V2 branch in to head
#	User	Rev	Content
1	williamc	1.1	#
2			# IncFile.pm
3			#
4			# Originally Written by Christopher Williams
5			#
6			# Description
7			# -----------
8	williamc	1.2	# Private Class for PreProcessedFile
9	williamc	1.1	#
10			# Interface
11			# ---------
12	williamc	1.2	# new(dbstore) : A new IncFile object
13	sashby	1.3	# filename() : return the filename
14	williamc	1.1
15	williamc	1.2	package ActiveDoc::IncFile;
16	williamc	1.1	require 5.004;
17	sashby	1.3	use ActiveDoc::Parse;
18	williamc	1.1
19	sashby	1.3	sub new
20			{
21			my $class=shift;
22			$self={};
23			bless $self, $class;
24			$self->{ObjectStore}=shift;
25			return $self;
26			}
27
28			sub filename()
29			{
30			my $self=shift;
31			@_ : $self->{filename} = shift
32			? $self->{filename};
33			}
34	williamc	1.1
35	sashby	1.3	1;