perl/Prot.pm

   1 #
   2 # Base class for OO version of all protocol stuff
   3 #
   4
   5 package Prot;
   6
   7 use strict;
   8
   9 sub new
  10 {
  11         my $pkg = shift;
  12         my $self = bless {}, $pkg;
  13         return $self;
  14 }
  15
  16
  17 1;
  18 __END__