I have tried the writing to the file handle before in the DESTROY. However the IO::File object seems to go out of scope or has its DESTROY called before I am able to write to it in my Log objects DESTROY. Here is my code below. I create an object of this class in a script and let it fall off the end of the script to test if the Finished line is written during the DESTROY however it never gets written unless I explicitly call DESTROY

package MyLog
$VERSION = '0.0.1';
use strict;
use Carp qw(croak longmess);
use English;
use File::Path;
use File::Basename;
use IO::File;
use MyModules::Date::Holiday qw(today);

our $home;
our $username;
BEGIN { $username = (getpwuid($<))[0]; $home = $ENV{HOME} ? $ENV{HOME}
+ : "/home/users/$username"; }

{
my $log;
my $fh;

# {{{ new 
sub new {
    # singleton pattern for the logger
    if($log) {
        return $log;
    } else {
        my $class = shift;
        my $self =  {};
        $log = bless($self, $class);
        $self->_init(@_);
        return $self->new();
    }
}
# }}}

# {{{ _init intialize all the inputs given to the constructor
sub _init {
    my $self = shift;
    if(@_) {
        my %args = %{shift @_};
        @$self{keys %args} = values %args;
    }

    if(!$self->{logfile}) {
        my $basedir = $home . '/log/' . today() . '/';
        # if for some reason we do not have the dated log directory cr
+eated, create one
        unless(-d $basedir) {
            eval {
                mkpath($basedir);
            };    
            if($@) {
                croak("$0 cannot create log directory $basedir : $@");
            }
        }
        my ($f,$d,$s) = fileparse($0);
        $self->{'logfile'} = $basedir . $f . '.log';
    }

    if(!$self->{fh}) {
        my $logfile = $self->{logfile};
        if(-e $logfile) {
            # if the logfile is there then append to it
            $fh = new IO::File;
            if($fh->open(">> $logfile")) {
                $self->{'fh'} = $fh;
            } else {
                croak("$0 Could not open logfile $logfile for appendin
+g $OS_ERROR\n");
            }     
        } else {
            # create a new logfile if one does not exist
            $fh = new IO::File;
            if($fh->open("> $logfile")) {
                $self->{'fh'} = $fh;
            } else {
                croak("$0 Could not create logfile $logfile $OS_ERROR\
+n");
            }     
        }
    }
    print {$self->{'fh'}} $self->get_time() . " INFO | Started \n";
}
# }}}

# {{{ log($level,$msg)
sub log {
    my $self = shift;
    my $level = shift;
    my $msg = shift;
    my $fh = $self->{fh};
    my $logentry = $self->get_time() . $level . ' | ' . "$msg";    
    # if it is an error, email it
    if($level =~ /(ERROR|WARN)/i) {
        if($self->{'to'}) {
            croak($logentry,$self->{'to'});
        } else {
            croak($logentry);
        }
    }
    print {$fh} "$logentry\n";    
}
# }}}

# {{{ info($msg)
sub info {
    my $self = shift;
    my $msg = shift;
    $self->log("INFO",$msg);
}
# }}}

# {{{ warn($msg)
sub warn {
    my $self = shift;
    my $msg = shift;
    $self->log("WARN",$msg);
}
# }}}

# {{{ fatal($msg)
sub fatal {
    my $self = shift;
    my $msg = shift;
    $self->log("ERROR",longmess() . " $msg");
    $self->DESTROY();
    die($msg);
}
# }}}

# {{{ get_time  borrowed from Pavels LogFile.pm
sub get_time {
   my ($sec, $min, $hour, $day, $mon, $year) = localtime();
   my $date = sprintf "%4d.%02d.%02d %02d:%02d.%02d | ",
                $year + 1900,
                $mon + 1,
                $day,
                $hour,
                $min,
                $sec;
   return $date;
}
# }}}

# {{{ log_file
sub log_file {
    return shift->{'logfile'};
}
# }}}

# {{{ DESTROY
sub DESTROY {
   my $self = shift;
   if($fh && fileno $fh) {
    print "Finish\n";
    print {$fh} $self->get_time() . 'INFO | ' . "$0 Finished\n";
    $fh->flush;
    $fh->close;
   }
   undef $fh;
}
# }}}
1; # Magic true value required at end of module
__END__
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.