view release on metacpan or  search on metacpan

lib/App/Validation/Automation/Logging.pm  view on Meta::CPAN

=cut

sub log {

    my $self = shift;
    my $msg  = shift;    
    local $OUTPUT_AUTOFLUSH  = 1;

    print { $self->log_file_handle } 
        scalar(localtime(time)).caller()." $msg"."\n" if( $msg );

    return 1;

}

1;