NAME

File::CounterSS - Counter that used File::Storage::Stat

SYNOPSIS

  use File::CounterSS;
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id'});#Id =~ m|^[a-zA-Z0-9\-\_\/]+$|
  my ($day, $total) = $c->count;

  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', type => 'last'});#'total' is default value of type
  my ($day, $yesterday) = $c->count;

  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'week'});'day' is default value of range
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'mon'});
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'year'});


  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'day', type => 'last'});
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'week', type => 'last'});
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'mon', type => 'last'});
  my $c = File::CounterSS->new({DirPath => 'dirpath', Id => 'id', range => 'year', type => 'last'});

DESCRIPTION

counter with two kinds of values at the same time. the first value is counted according to hour, day, week, mon, year. the second value is the last count or a count of the total.

AUTHOR

Kazuhiro Osawa <ko@yappo.ne.jp>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Kazuhiro Osawa

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.