mirror of
https://github.com/adambard/learnxinyminutes-docs.git
synced 2024-12-24 15:51:41 +03:00
use strict and warnings in example modules
This commit is contained in:
parent
35b3c490ce
commit
88af462c69
@ -202,6 +202,8 @@ logger("We have a logger subroutine!");
|
||||
# that Perl can find it.
|
||||
|
||||
package MyModule;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub trim {
|
||||
my $string = shift;
|
||||
@ -237,6 +239,8 @@ trim($string);
|
||||
# or Moo (see below).
|
||||
|
||||
package MyCounter;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
@ -268,7 +272,7 @@ print $counter->count, "\n"; # 1
|
||||
# class can be used equivalently to the one above.
|
||||
|
||||
package MyCounter;
|
||||
use Moo;
|
||||
use Moo; # imports strict and warnings
|
||||
|
||||
has 'count' => (is => 'rwp', default => 0, init_arg => undef);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user