Mastering Modern Perl: Writing Efficient and Maintainable Code/

...

/

Solution Review: Writing an AUTOLOAD() Function

Solution Review: Writing an AUTOLOAD() Function

See the solution review to the problem of writing an AUTOLOAD() function.

We'll cover the following...

Solution

Let’s look at the solution before jumping into the explanation:

Press + to interact
sub AUTOLOAD {
   my $value = shift;
   my ($name) = our $AUTOLOAD =~ /::(\w+)$/;
   $count += $value if $name eq 'increment';
   $count -= $value if $name eq 'decrement';
   
   say "count = " . $count;
}

Explanation

...