trunk/lib/Sack.pm

package Sack;

use warnings;
use strict;

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