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	dpavlin	135	package Sack;
2
3	dpavlin	156	use warnings;
4			use strict;
5	dpavlin	135
6	dpavlin	185	use Time::HiRes qw(time);
7
8	dpavlin	156	use lib 'lib';
9			use Sack::Color;
10
11			our $VERSION = '0.12';
12
13	dpavlin	135	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;