Repository List / moosie / trunk / timer.pl @ HEAD

#!/usr/bin/perl

package IRC::MyTimer;
use base IRC::Timer;
use Time::HiRes qw/gettimeofday tv_interval/;

sub timer {
	my $self = shift;
	print "diff: " . tv_interval($self->{_last_time}) . "\n";
}


package main;

use IRC::Timer;

print "Creating IRC::Timer...\n";
sub foo { print "foo: " . time . "\n"; }
my $timer = new IRC::Timer(callback => \&foo, interval => 1, times => 3);

print "Creating MyTimer...\n";
my $my_timer = new IRC::MyTimer(interval => 3, times => 1);

while(1) { }