File: epoobj4.htm

package info (click to toggle)
libembperl-perl 2.0rc3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 5,688 kB
  • ctags: 5,161
  • sloc: ansic: 20,422; perl: 10,064; makefile: 5,134; cpp: 467; xml: 49; sh: 14
file content (16 lines) | stat: -rw-r--r-- 210 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 [! 
 
 sub new
	{
	my $self = shift ;

	$self -> {fontsize} = 9 ;
	$self -> {copyright} = 'Gerald Richter / ecos (c) 2000 [page 4]' ;
	}
 
 
 !]

 [$ sub title $]<b>Embperl sub in title </b>[$endsub$]

 PAGE 4