File Coverage

blib/lib/Dancer/Logger/Hourlyfile.pm

Criterion	Covered	Total	%
statement	27	67	40.3
branch	0	16	0.0
condition	0	11	0.0
subroutine	9	12	75.0
pod	1	1	100.0
total	37	107	34.5

package Dancer::Logger::Hourlyfile;

use strict;
use warnings;

use Carp;
use base 'Dancer::Logger::Abstract';
use Dancer::FileUtils qw(open_file);
use Dancer::Config 'setting';
use IO::File;
use File::Path qw(make_path);
use POSIX qw/strftime/;

our $VERSION = '0.07';

sub init {
  my $self = shift;
  $self->SUPER::init(@_);

# Grab Settings
  $self->{log_path}   = setting('log_path') . '/';
  $self->{log_fname}  = setting('log_file') . '.log' || setting('environment') . '.log';
  $self->{log_file}   = $self->{log_fname};
  $self->{log_hourly} = setting('log_hourly') || "filename";

  my $log_time = setting('log_time');
  if ( $log_time eq 'gmtime' ) {
    $self->{log_time} = 'gmtime';
  } else {
    $self->{log_time} = 'localtime';
  }

}


sub _log {
  my ( $self, $level, $message ) = @_;

  # Check or set fh
  $self->_setfh;

  my $fh  = $self->{fh};

  $fh->print( $self->format_message( $level => $message ) )
    or carp "writing logs to file $self->{logfile} failed: $!";
}


sub _setfh {
  my $self = shift;

  my $test_fh      = $self->{fh};
  my $current_time = undef;
  my $path_time    = undef;
  my $file_time    = undef;


  if ( $self->{log_time} eq 'gmt' ) {
    $current_time = POSIX::strftime( "%Y-%m-%d-%H", gmtime    ) ;
    $path_time    = POSIX::strftime( "%Y/%m/%d/",   gmtime    ) ;
    $file_time    = POSIX::strftime( "%Y%m%d%H_",   gmtime    ) ;
  } else {
    $current_time = POSIX::strftime( "%Y-%m-%d-%H", localtime ) ;
    $path_time    = POSIX::strftime( "%Y/%m/%d/",   localtime ) ;
    $file_time    = POSIX::strftime( "%Y%m%d%H_",   localtime ) ;
  }

  # Return if fh is good
  if ( ref $test_fh && $test_fh->opened ) {  # fh exists and is open
    return ;
  }

  # Date hasn't changed
  if ( exists $self->{log_current} && $self->{log_current} eq $current_time ) {
    return ;
  }

  # if here, then fh is no good.  Clean it up
  close($test_fh) if ( ref $test_fh );;

  $self->{log_current} = $current_time;    # reset tracking of time change
  $self->{log_file}    = $self->{log_path} ;

  # YYYY/MM/DD to path if extended
  if ( $self->{log_hourly} eq 'extended' ) {
    $self->{log_path} .= $path_time ;
  }

  # Make sure path exists
  make_path( $self->{log_path} );

  # finish building filename
  $self->{log_file}   = $self->{log_path} . $file_time . $self->{log_fname};

  # get a new fh
  open( my $fh, '>>', $self->{log_file} )
    || croak "Unable to open $self->{log_file}: $!";

  $fh->autoflush(1);

  # store fh for later use
  $self->{fh} = $fh;

}

1;
__END__