Egg::Plugin::File::Rotate - Plugin that does file rotation.

  use Egg qw/ File::Rotate /;

  


  my $file_path= '/path/to/savefile'; 

  if ( -e $file_path ) {
     $e->rotate($file_path, stock => 5 );
  }
  my $fh= FileHandle->new("> $file_path") || return do {
    $e->rotate($file_path, reverse => 1 );
    die $!;
    };

  % ls -la /path/to
  drwxr-x---  ***  .
  drwxr-x---  ***  ..
  drw-r--r--  ***  savefile
  drw-r--r--  ***  savefile.1

It numbers and the backup is left for the file that already exists.

It file rotates.

Passing to the object file is specified for FILE_PATH. If the file doesn't exist, undefined is returned without doing anything.

OPTION is HASH.

If reverse of OPTION is undefined, it file usually rotates. At this time, the rotation file of the number specified for stock is left. The file that leaks from the number of stock is annulled. The defaults of the number of stock are 5, and the lowest value is 3.

  $e->rotate( '/path/to/save.txt', stock=> 10 );

FILE_PATH is renamed and doesn't exist after it processes it.

When reverse of OPTION is defined, processing opposite to a usual file rotation is done. After usual roteate, this is an option to want to return it.

  $e->rotate( ...... );
  my $fh= FileHandle->new("/path/to/save.txt") || do {
      $e->rotate( "/path/to/save.txt", reverse=> 1 );
      die $!;
    };

The report of the processing situation of the rotate method is returned.

  $e->rotate( ...... );
  .......
  ....
  print $e->rotate_report;

Egg::Release,

Masatoshi Mizuno <lushe&64;cpan.org>

Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>.

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.6 or, at your option, any later version of Perl 5 you may have available.