That's perfectly fine. You could also use state, but I prefer the above.

[ hum, [doc://state] doesn't work. ]

[hum, [doc://state] doesn't work. ]

You're right ... Broken shortcut links for some built-in functions

[doc://perlfunc#state-EXPR|state] and [doc://perlfunc#state-EXPR] also work as make-dos: state and state EXPR.

But I'm confused by what this routine is supposed to do. Considering you print out the time and message, if $configHR->{VERBOSE} is true, I'm guessing this is a logging routine.

But you've rather overloaded the term verbose ... It's the name of the routine, the tag of the only postion of the config hashref you look at, and a value for the info field.

Personally, I would go for a small inline package named logger' witha constructor, a print() method and a flush() method. The constructor takes and arg, 'mode', and sets a 'cached' attribute if mode is 'cached'. print() caches the formatted message is caching is enabled, otherwise prints it.

use POSIX qw(strftime);
my $time = POSIX::strftime( "%T", localtime)
[download]

will give you the hours, minutes seconds. As for truncating the message

my $msg = substr( $msg, 0, 50 ) . '-'
    if 50 < length $msg;
[download]

If you wanted to be fancy, the constructor could return a caching subclass or a printing subclass instance, depending on the arg. But a single if() is not too painful.

Unfortunately, non-scalar state variables are pretty much broken. Consider:

foo();

sub foo {
    state @verbose = 1..10;
    say shift @$verbose;
}
[download]

gives an Initialization of state variables in list context currently forbidden error.

However, there are work-arounds, such as:

foo(); 
foo(); 
foo();

sub foo {
    state $verbose = [1..10];
    say shift @$verbose;
}
__END__
1
2
3
[download]

Using diagnostics states that "Constructions such as state (@a) = foo() will be supported in a future perl release".

    return \@verbose if($info eq 'verbose');
[download]

You are returning a reference to the array @verbose so your array could be altered or re-initilized outside this subroutine.

    my $time = scalar localtime();
    $time =~ /(\d\d:\d\d:\d\d)/;
    $time = $1;
[download]

That is usually written as:

    my $time = sprintf '%02d:%02d:%02d', ( localtime )[ 2,1,0 ];
[download]

use strict;
use warnings;
{
    package SomeThing;
    my @verbose;
    
    sub new{
       my ($class,%params) = @_;
       
       return bless {%params,
                 }, $class;    
    }
    
    sub get_info{
        my ($self) = @_;
        return \@verbose;
    }
    
   sub insert{
        my ($self,$opt,$info)=@_;
        push @verbose, "\n"
         .  (my $time = ((scalar localtime)=~/(\d\d:\d\d:\d\d)/)[0])
         . "  \[$info]\n";
        return unless $opt->{VERBOSE};
        if(length($info) > 55){
           $info =~ s/(.{1,50})/$1-]\n\t  [-/;
        }
        
        print "$time  [$info]\n";    
    }
}

my $obj = new SomeThing(color=>"Blue");

$obj->insert ({VERBOSE=>1}, "This text");
$obj->insert ({VERBOSE=>1}, "That text");
print $_ for @{ $obj->get_info()};
[download]

{
my @verbose;

sub verbose {
    ...
}}
[download]