It's probably overkill. You could do this...

# SUBS

my $log = Log->new();

sub do_this{
    $log->log('Log This');
}

sub do_that{
    $log->log('Log That');
}
[download]

Or even this...

# SUBS

my $log;

sub do_this{
    ($log||=Log->new)->log('Log This');
}

sub do_that{
    ($log||=Log->new)->log('Log That');
}
[download]

Please let me know if there is a better way or a perferred method.

1. Rename new() to get_logger()?
2. Use a closure?

use strict;
use warnings;
use 5.012;

package Log;

{

    my $logger;

    sub get_logger {
        if (not $logger) {
            my ($class, $path) = @_;

            say "Creating logger...";

            $logger = {};
            bless $logger, "Log";
            $logger->create_logfile($path);

        }
        else {
            say "Logger already exists..."
        }

        return $logger;
    }
}

sub create_logfile {
}

sub do_stuff {
    #$logger = 'hello';
}

[download]

use strict;
use warnings;
use 5.012;

use Log;

my $log = Log->get_logger();   #Creating logger...
$log = Log->get_logger();       #Logger already exists...
$log = Log->get_logger();       #Logger already exists...

#$log->do_stuff;
[download]

With a closure, you can't (mistakenly) change the $logger singleton in another subroutine:

Global symbol "$logger" requires explicit package name at Log.pm line 
+32.
Compilation failed in require at 2.pl line 5.
[download]

The my variable $logger ceases to exist after the end of the block, and thereafter only the sub get_logger() can see the $logger variable.

Thank you. Haven't implemented a closure before but I'll read up on them. Thanks!

Do you really need a singleton? Consider the following:

package Log;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);


our %EXPORT_TAGS = ( 'all' => [ qw(
logit

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
        logit
);


sub logit {
 # real stuff goes here.
    printf "%s\n",join("\n",@_);
}

1;

[download]

#!/usr/bin/perl -w
use strict;
use Log qw/ :all /;

logit("This is something to log");


[download]

Hi It will be easy if you will follow to Log::Log4perl module which cpan provides

you can call the log method like Log->info($message)

Create a module Log.pm with using Log::Log4perl

BEGIN {
require Exporter;
push @ISA, qw(Exporter);
@EXPORT = ( @Data::Dumper::EXPORT, @Carp::EXPORT, qw($log get_logger);
$conf_file="path to log4perl.conf";
eval {
Log::Log4perl->init($conf_file);
}
if ($@) {
die "Cann't open the file" if ($@ =~ m/Permission/gi);
}
Log::Log4perl->get_logger("My::MegaPackage");
}
sub new {
    my $class = shift;
    return bless {}, $class;
}

sub info {
    my ($self, $message)            = @_;
    my ($package, $filename, $line) = caller;
    my $_log                        = Log::Log4perl->get_logger($packa
+ge);

    $log->info($message) if ($log->is_info());
}
sub error {
    my ($self, $message)            = @_;
    my ($package, $filename, $line) = caller;
    my $_log                        = Log::Log4perl->get_logger($packa
+ge);

    $log->error( longmess($message) ) if ($log->is_error());
}
sub debug {
    my ($self, $message)            = @_;
    my ($package, $filename, $line) = caller;
    my $_log                        = Log::Log4perl->get_logger($packa
+ge);

    $log->debug($message) if ($log->is_debug());
}

[download]

and by using this module and calling get_logger() method your job will be easy

Please let me know if you are unclear on this and I will suggest to follow Log::Log4perl for better logging messages

Thanks. I would have used log4perl but unfortunately working with older version of Perl.