From 88af462c699b9f48310a9624bb6bbe94b7101af1 Mon Sep 17 00:00:00 2001
From: Dan Book <grinnz@gmail.com>
Date: Sun, 13 Dec 2015 19:39:37 -0500
Subject: [PATCH] use strict and warnings in example modules

---
 perl.html.markdown | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl.html.markdown b/perl.html.markdown
index ab71a6ab..d919e00e 100644
--- a/perl.html.markdown
+++ b/perl.html.markdown
@@ -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);