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
#	Content
1	#
2	# IncFile.pm
3	#
4	# Originally Written by Christopher Williams
5	#
6	# Description
7	# -----------
8	# Private Class for PreProcessedFile
9	#
10	# Interface
11	# ---------
12	# new(dbstore) : A new IncFile object
13	# filename() : return the filename
14
15	package ActiveDoc::IncFile;
16	require 5.004;
17	use ActiveDoc::Parse;
18
19	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
35	1;