Re: Singleton Log Object

[blue_cowdawg]

sub new{

    my ($class,$logpath) = @_;

    unless ( ref $singleton eq 'Log' ) {
        $singleton = {};
        bless( $singleton, $class );
        $singleton->create_path($logpath);
    }

    return $singleton; 
}

There's a couple of things I'd change:

package Log;
my $instance = undef;

sub new {
    shift; 
    unless ($instance){
       $instance={};
       bless $instance,"Log";
    }
    return $instasnce;
}

You would not need the get_log_instance sub since

| handwaving here
my $log=new Log();
|

would either return the instance in play already or create a new one it there wasn't one in play. Creating a singleton is something I do all the time. Especially for my logging module. :-)

[Anonymous Monk]

Great to get some feed back so promptly! You're the best, thanks so much.