add strictures commit (out of order)

diff --git a/Changes b/Changes
index eccc89f..649c7d7 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,8 @@
-0.009002 - 2010-10-11
+0.009003 - 2010-10-12
+
+* mst is an idiot and forgot to add strictures.pm as a dependency
+
+0.009002 - 2010-10-12
 
 * Added support for more selector syntax support including: 
   + element#id

diff --git a/Makefile.PL b/Makefile.PL
index 12e9fc4..0b9d6e1 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,4 +2,6 @@ use inc::Module::Install;
 
 all_from('lib/HTML/Zoom.pm');
 
+requires 'strictures' => 1;
+
 WriteAll;

diff --git a/lib/HTML/Zoom.pm b/lib/HTML/Zoom.pm
index 80ee8e9..936ecc9 100644 (file)
--- a/lib/HTML/Zoom.pm
+++ b/lib/HTML/Zoom.pm
@@ -1,14 +1,13 @@
 package HTML::Zoom;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 
 use HTML::Zoom::ZConfig;
 use HTML::Zoom::ReadFH;
 use HTML::Zoom::Transform;
 use HTML::Zoom::TransformBuilder;
 
-our $VERSION = '0.009001';
+our $VERSION = '0.009003';
 
 $VERSION = eval $VERSION;
 

diff --git a/lib/HTML/Zoom/ArrayStream.pm b/lib/HTML/Zoom/ArrayStream.pm
index 7a7e05c..1caa513 100644 (file)
--- a/lib/HTML/Zoom/ArrayStream.pm
+++ b/lib/HTML/Zoom/ArrayStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::ArrayStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {

diff --git a/lib/HTML/Zoom/CodeStream.pm b/lib/HTML/Zoom/CodeStream.pm
index 0755a3b..ac5812f 100644 (file)
--- a/lib/HTML/Zoom/CodeStream.pm
+++ b/lib/HTML/Zoom/CodeStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::CodeStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index a90a987..c8abd5c 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::FilterBuilder;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 use HTML::Zoom::CodeStream;
 

diff --git a/lib/HTML/Zoom/FilterBuilder/Template.pm b/lib/HTML/Zoom/FilterBuilder/Template.pm
index ee69983..a916e9e 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder/Template.pm
+++ b/lib/HTML/Zoom/FilterBuilder/Template.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::FilterBuilder;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Template::Tiny;
 
 sub _template_object {

diff --git a/lib/HTML/Zoom/FilterStream.pm b/lib/HTML/Zoom/FilterStream.pm
index e349faf..4e9e53c 100644 (file)
--- a/lib/HTML/Zoom/FilterStream.pm
+++ b/lib/HTML/Zoom/FilterStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::FilterStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {

diff --git a/lib/HTML/Zoom/FlattenedStream.pm b/lib/HTML/Zoom/FlattenedStream.pm
index d33c9ea..acedcae 100644 (file)
--- a/lib/HTML/Zoom/FlattenedStream.pm
+++ b/lib/HTML/Zoom/FlattenedStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::FlattenedStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {

diff --git a/lib/HTML/Zoom/MappedStream.pm b/lib/HTML/Zoom/MappedStream.pm
index e6183cd..75ef2c3 100644 (file)
--- a/lib/HTML/Zoom/MappedStream.pm
+++ b/lib/HTML/Zoom/MappedStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::MappedStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {

diff --git a/lib/HTML/Zoom/Parser/BuiltIn.pm b/lib/HTML/Zoom/Parser/BuiltIn.pm
index cfe21de..efa07cb 100644 (file)
--- a/lib/HTML/Zoom/Parser/BuiltIn.pm
+++ b/lib/HTML/Zoom/Parser/BuiltIn.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::Parser::BuiltIn;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 
 sub html_to_events {

diff --git a/lib/HTML/Zoom/Producer/BuiltIn.pm b/lib/HTML/Zoom/Producer/BuiltIn.pm
index 6ae1ccc..46f75e8 100644 (file)
--- a/lib/HTML/Zoom/Producer/BuiltIn.pm
+++ b/lib/HTML/Zoom/Producer/BuiltIn.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::Producer::BuiltIn;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 
 sub html_from_stream {

diff --git a/lib/HTML/Zoom/ReadFH.pm b/lib/HTML/Zoom/ReadFH.pm
index 9fb2ad9..b877c53 100644 (file)
--- a/lib/HTML/Zoom/ReadFH.pm
+++ b/lib/HTML/Zoom/ReadFH.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::ReadFH;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 
 sub from_zoom {
   my ($class, $zoom) = @_;

diff --git a/lib/HTML/Zoom/SelectorParser.pm b/lib/HTML/Zoom/SelectorParser.pm
index 48545ff..9e96980 100644 (file)
--- a/lib/HTML/Zoom/SelectorParser.pm
+++ b/lib/HTML/Zoom/SelectorParser.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::SelectorParser;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 use Carp qw(confess);
 

diff --git a/lib/HTML/Zoom/StreamBase.pm b/lib/HTML/Zoom/StreamBase.pm
index e063c48..a22158b 100644 (file)
--- a/lib/HTML/Zoom/StreamBase.pm
+++ b/lib/HTML/Zoom/StreamBase.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::StreamBase;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use HTML::Zoom::TransformBuilder;
 
 sub _zconfig { shift->{_zconfig} }

diff --git a/lib/HTML/Zoom/StreamUtils.pm b/lib/HTML/Zoom/StreamUtils.pm
index 3b2f921..ff42fa6 100644 (file)
--- a/lib/HTML/Zoom/StreamUtils.pm
+++ b/lib/HTML/Zoom/StreamUtils.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::StreamUtils;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 
 use Scalar::Util ();

diff --git a/lib/HTML/Zoom/SubObject.pm b/lib/HTML/Zoom/SubObject.pm
index 3620e26..1d29462 100644 (file)
--- a/lib/HTML/Zoom/SubObject.pm
+++ b/lib/HTML/Zoom/SubObject.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::SubObject;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Scalar::Util ();
 
 sub new {

diff --git a/lib/HTML/Zoom/Transform.pm b/lib/HTML/Zoom/Transform.pm
index e43474c..58c1900 100644 (file)
--- a/lib/HTML/Zoom/Transform.pm
+++ b/lib/HTML/Zoom/Transform.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::Transform;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 use HTML::Zoom::TransformedStream;
 

diff --git a/lib/HTML/Zoom/TransformBuilder.pm b/lib/HTML/Zoom/TransformBuilder.pm
index 8381021..6b94936 100644 (file)
--- a/lib/HTML/Zoom/TransformBuilder.pm
+++ b/lib/HTML/Zoom/TransformBuilder.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::TransformBuilder;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::SubObject);
 use HTML::Zoom::Transform;
 

diff --git a/lib/HTML/Zoom/TransformedStream.pm b/lib/HTML/Zoom/TransformedStream.pm
index 5abd021..17b0130 100644 (file)
--- a/lib/HTML/Zoom/TransformedStream.pm
+++ b/lib/HTML/Zoom/TransformedStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::TransformedStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::FilterStream);
 
 sub new {

diff --git a/lib/HTML/Zoom/ZConfig.pm b/lib/HTML/Zoom/ZConfig.pm
index 9cf060b..7809e97 100644 (file)
--- a/lib/HTML/Zoom/ZConfig.pm
+++ b/lib/HTML/Zoom/ZConfig.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::ZConfig;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 
 my %DEFAULTS = (
   parser => 'HTML::Zoom::Parser::BuiltIn',

diff --git a/t/actions.t b/t/actions.t
index 584ec36..c89a5b8 100644 (file)
--- a/t/actions.t
+++ b/t/actions.t
@@ -1,5 +1,4 @@
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Test::More;
 
 use HTML::Zoom::Parser::BuiltIn;

diff --git a/t/doctype.t b/t/doctype.t
index b0e5e1b..28a7a69 100644 (file)
--- a/t/doctype.t
+++ b/t/doctype.t
@@ -1,5 +1,4 @@
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Test::More qw(no_plan);
 
 use HTML::Zoom;

diff --git a/t/selectors.t b/t/selectors.t
index 8a800b1..5c8a380 100644 (file)
--- a/t/selectors.t
+++ b/t/selectors.t
@@ -1,5 +1,4 @@
-use strict;
-#use warnings FATAL => 'all';
+use strictures 1;
 use Test::More;
 
 use HTML::Zoom;

diff --git a/t/synopsis/filterbuilder.t b/t/synopsis/filterbuilder.t
index 1112109..f68cfc5 100644 (file)
--- a/t/synopsis/filterbuilder.t
+++ b/t/synopsis/filterbuilder.t
@@ -1,5 +1,4 @@
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Test::More qw(no_plan);
 
 

diff --git a/t/synopsis/zoom.t b/t/synopsis/zoom.t
index 83f99e8..05e0aef 100644 (file)
--- a/t/synopsis/zoom.t
+++ b/t/synopsis/zoom.t
@@ -1,5 +1,4 @@
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use Test::More qw(no_plan);
 
 use HTML::Zoom;

diff --git a/t/todo-repeat.t b/t/todo-repeat.t
index 54a773d..235573d 100644 (file)
--- a/t/todo-repeat.t
+++ b/t/todo-repeat.t
@@ -1,4 +1,4 @@
-use strict;
+use strictures 1;
 use HTML::Zoom;
 use Test::More skip_all => "Totally doesn't work yet";