Changeset 1410 for trunk/gsdl/perllib/plugins/TEXTPlug.pm
- Timestamp:
- 2000-08-16T17:48:49+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/TEXTPlug.pm
r1244 r1410 29 29 package TEXTPlug; 30 30 31 use BasPlug;31 use ConvertToBasPlug; 32 32 33 33 sub BEGIN { 34 @ISA = (' BasPlug');34 @ISA = ('ConvertToBasPlug'); 35 35 } 36 36 … … 39 39 sub new { 40 40 my ($class) = @_; 41 my $self = new BasPlug ("TEXTPlug", @_); 41 my $self = new ConvertToBasPlug ($class, @_); 42 43 $self->{'convert_to'} = "TEXT"; 44 $self->{'convert_to_ext'} = "txt"; 42 45 43 46 return bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.