InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/languages/perl/scripts-osu/operl.shar/set.pl

Perl Script | 1991-02-25 | 165 b | 9 lines

#!/usr/bin/perl
require 'bag.pl';

&defclass ('set','bag');
&defmethod('set','put',    '$elements{$_[0]}=1;');
&defmethod('set','size',   'length(%elements);');

1;