perl/Editable.pm

   1 #
   2 # A module to allow a user to create and (eventually) edit arrays of
   3 # text and attributes
   4 #
   5 # This is used for creating mail messages and user script files
   6 #
   7 # It may be sub-classed
   8 #
   9 # Copyright (c) 2001 Dirk Koopman G1TLH
  10 #
  11 # $Id$
  12 #
  13
  14 package Editable;
  15
  16 use vars qw($VERSION $BRANCH);
  17 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
  18 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
  19 $main::build += $VERSION;
  20 $main::branch += $BRANCH;
  21
  22 sub new
  23 {
  24         my $pkg = shift;
  25         my $class = ref $pkg || $pkg;
  26
  27         return {}, $class;
  28 }
  29
  30 1;