iskm/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2024-12-23 17:41:41 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

use strict and warnings in example modules

Browse Source
This commit is contained in:
Dan Book 2015-12-13 19:39:37 -05:00
parent 35b3c490ce
commit 88af462c69
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl.html.markdown
View File

@ -202,6 +202,8 @@ logger("We have a logger subroutine!");
# that Perl can find it. # that Perl can find it.
package MyModule; package MyModule;
use strict;
use warnings;
sub trim { sub trim {
my $string = shift; my $string = shift;
@ -237,6 +239,8 @@ trim($string);
# or Moo (see below). # or Moo (see below).
package MyCounter; package MyCounter;
use strict;
use warnings;
sub new { sub new {
my $class = shift; my $class = shift;
@ -268,7 +272,7 @@ print $counter->count, "\n"; # 1
# class can be used equivalently to the one above. # class can be used equivalently to the one above.
package MyCounter; package MyCounter;
use Moo; use Moo; # imports strict and warnings
has 'count' => (is => 'rwp', default => 0, init_arg => undef); has 'count' => (is => 'rwp', default => 0, init_arg => undef);