X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FProt.pm;fp=perl%2FProt.pm;h=4576196a28533f81a44897c55f2a207bbd0ee6f1;hb=1910df7183401a62084e85c3ace179df492a6fbe;hp=0000000000000000000000000000000000000000;hpb=0a26d8269de811ac52450fcb411ebac7cab1d382;p=spider.git

diff --git a/perl/Prot.pm b/perl/Prot.pm
new file mode 100644
index 00000000..4576196a
--- /dev/null
+++ b/perl/Prot.pm
@@ -0,0 +1,18 @@
+#
+# Base class for OO version of all protocol stuff
+#
+
+package Prot;
+
+use strict;
+
+sub new
+{
+	my $pkg = shift;
+	my $self = bless {}, $pkg;
+	return $self;
+}
+
+
+1;
+__END__