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	dpavlin	135	package Sack;
2
3	dpavlin	156	use warnings;
4			use strict;
5	dpavlin	135
6	dpavlin	156	use lib 'lib';
7			use Sack::Color;
8
9			our $VERSION = '0.12';
10
11	dpavlin	135	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;