File Coverage

blib/lib/File/CounterSS.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package File::CounterSS;

use strict;
use Carp;
use File::Path;
use File::Storage::Stat;

require Exporter;

our @ISA = qw(Exporter);
our $VERSION = '0.01';


sub new {
    my $class = shift;
    my $options = shift;

    croak('Id is not set.')
	unless $options->{Id};

    croak('Format error of Id.')
	unless $options->{Id} =~ /^[a-zA-Z0-9\-\_\/]+/;

    my $filepath = $options->{DirPath} . '/' . $options->{Id};
    my $dirpath = $filepath;
    $dirpath =~ s|/[^/]+$||;

    mkpath($dirpath, 0, 0777)
	unless -d $dirpath;

    unless (-e $filepath) {
        open(C, ">$filepath");
        close(C);
        chmod(0666, $filepath);
        utime(0, 0, $filepath);
    }

    my $fss = File::Storage::Stat->new({FilePath => $filepath});

    my $range = lc($options->{Range});
    $range = 'day'
	unless ($range =~ /^(hour|day|week|mon|year)$/);

    my $type = lc($options->{Type});
    $type = 'total'
	unless ($type =~ /^(total|last)$/);

    my $self = {
	filepath => $filepath,
	dirpath  => $dirpath,

	fss => $fss,

	range => $range,
	type  => $type,
    };


    return bless $self, $class;
}

sub count {
    my $self = shift;

    my($atime, $mtime, $ctime) = $self->{fss}->get;

    my $last_atime = $atime;
    my $clear = 0;
    if ($self->{range} eq 'week') {
	$clear = 1
	    unless (localtime($ctime))[6] eq 6 && (localtime(time))[6] eq 0;
    } else {
	my $f;
	if ($self->{range} eq 'hour') {
	    $f = 2;
	} elsif ($self->{range} eq 'day') {
	    $f = 3;
	} elsif ($self->{range} eq 'mon') {
	    $f = 4;
	} elsif ($self->{range} eq 'year') {
	    $f = 5;
	}
	$clear = 1
	    unless (localtime($ctime))[$f] eq (localtime(time))[$f];
    }

    if ($clear) {
	$atime = 0;
	$mtime = $last_atime - 1
	    if $self->{type} eq 'last';
    }
    ++$atime; ++$mtime;
    $self->{fss}->set($atime, $mtime);

    return ($atime, $mtime);
}

1;
__END__