/usr/local/CPAN/Crypt-Chimera/Crypt/Chimera/Event.pm

• package Crypt::Chimera::Event
  • new
• EOF

package Crypt::Chimera::Event;

use strict;
use vars qw(@ISA $SEQ);
use Crypt::Chimera::Object;

@ISA = qw(Crypt::Chimera::Object);
$SEQ = 0;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new(@_);
	$self->{Seq} = $SEQ++;
	return $self;
}

1;