trunk/lib/Sack.pm

package Sack;

use warnings;
use strict;

use Time::HiRes qw(time);

use lib 'lib';
use Sack::Color;

our $VERSION = '0.12';

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	use warnings;
4	use strict;
5
6	use Time::HiRes qw(time);
7
8	use lib 'lib';
9	use Sack::Color;
10
11	our $VERSION = '0.12';
12
13	use Exporter 'import';
14	our @EXPORT = qw(duration);
15
16	our $t = time;
17	our $log_fh;
18
19	sub duration {
20	my $now = time;
21	my $d = $now - $t;
22	my $message = sprintf "%.4fs %s\n", $d, join(' ',@_);
23	print $message;
24	open( $log_fh, '>', '/tmp/sack.log' ) unless $log_fh;
25	print $log_fh $message;
26	$t = $now;
27	}
28
29	1;