trunk/lib/Sack.pm

package Sack;

our $VERSION = '0.11';

use Exporter 'import';
our @EXPORT = qw(duration);

our $t = time;
our $log_fh;

sub duration {
        my $now = time;
        my $d = $now - $t;
        my $message = sprintf "%.4fs %s\n", $d, join(' ',@_);
        print $message;
        open( $log_fh, '>', '/tmp/sack.log' ) unless $log_fh;
        print $log_fh $message;
        $t = $now;
}

1;
1	package Sack;
2
3	our $VERSION = '0.11';
4
5	use Exporter 'import';
6	our @EXPORT = qw(duration);
7
8	our $t = time;
9	our $log_fh;
10
11	sub duration {
12	my $now = time;
13	my $d = $now - $t;
14	my $message = sprintf "%.4fs %s\n", $d, join(' ',@_);
15	print $message;
16	open( $log_fh, '>', '/tmp/sack.log' ) unless $log_fh;
17	print $log_fh $message;
18	$t = $now;
19	}
20
21	1;