Parent Directory | Revision Log | Patch
revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC | revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | # -*- Mode: Perl -*- | # -*- Mode: Cperl -*- |
2 | # Base.pm -- | # Base.pm -- |
3 | # ITIID : $ITI$ $Header $__Header$ | # ITIID : $ITI$ $Header $__Header$ |
4 | # Author : Ulrich Pfeifer | # Author : Ulrich Pfeifer |
# | Line 17 use Carp; | Line 17 use Carp; |
17 | ||
18 | sub new { | sub new { |
19 | my $type = shift; | my $type = shift; |
20 | ||
21 | bless {}, ref($type) || $type; | bless {}, ref($type) || $type; |
22 | } | } |
23 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |