From a68010aa43dbc7c3ecb45190fea02e2834a62c7d Mon Sep 17 00:00:00 2001
From: Graham Ollis <plicease@cpan.org>
Date: Fri, 22 Nov 2019 13:23:09 -0700
Subject: [PATCH 1/4] indent code blocks

---
 lib/CSS/Inliner.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/CSS/Inliner.pm b/lib/CSS/Inliner.pm
index 9d6b68a..22e8a81 100755
--- a/lib/CSS/Inliner.pm
+++ b/lib/CSS/Inliner.pm
@@ -21,13 +21,13 @@ CSS::Inliner - Library for converting CSS <style> blocks to inline styles.
 
 =head1 SYNOPSIS
 
-use CSS::Inliner;
+ use CSS::Inliner;
 
-my $inliner = new CSS::Inliner();
+ my $inliner = new CSS::Inliner();
 
-$inliner->read_file({ filename => 'myfile.html' });
+ $inliner->read_file({ filename => 'myfile.html' });
 
-print $inliner->inlinify();
+ print $inliner->inlinify();
 
 =head1 DESCRIPTION
 
@@ -135,7 +135,7 @@ stylesheet reference within the document.
 This method requires you to pass in a params hash that contains a
 url argument for the requested document. For example:
 
-$self->fetch_file({ url => 'http://www.example.com' });
+ $self->fetch_file({ url => 'http://www.example.com' });
 
 Note that you can specify a user-agent to override the default user-agent
 of 'Mozilla/4.0' within the constructor. Doing so may avoid certain issues
@@ -193,12 +193,12 @@ if specified. It subsequently calls the read() method automatically.
 This method requires you to pass in a params hash that contains a
 filename argument. For example:
 
-$self->read_file({ filename => 'myfile.html' });
+ $self->read_file({ filename => 'myfile.html' });
 
 Additionally you can specify the character encoding within the file, for
 example:
 
-$self->read_file({ filename => 'myfile.html', charset => 'utf8' });
+ $self->read_file({ filename => 'myfile.html', charset => 'utf8' });
 
 Input Parameters:
  filename - name of local file presumably containing both html and css
@@ -252,7 +252,7 @@ separately. Class/ID/Names used in the markup are left alone.
 This method requires you to pass in a params hash that contains scalar
 html data. For example:
 
-$self->read({ html => $html });
+ $self->read({ html => $html });
 
 NOTE: You are required to pass a properly encoded perl reference to the
 html data. This method does *not* do the dirty work of encoding the html

From f613ff90c4e3ade5353a50d31feb0ee793a79ec8 Mon Sep 17 00:00:00 2001
From: Graham Ollis <plicease@cpan.org>
Date: Fri, 22 Nov 2019 13:27:41 -0700
Subject: [PATCH 2/4] do not use indirect

---
 lib/CSS/Inliner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/CSS/Inliner.pm b/lib/CSS/Inliner.pm
index 22e8a81..b24fb55 100755
--- a/lib/CSS/Inliner.pm
+++ b/lib/CSS/Inliner.pm
@@ -23,7 +23,7 @@ CSS::Inliner - Library for converting CSS <style> blocks to inline styles.
 
  use CSS::Inliner;
 
- my $inliner = new CSS::Inliner();
+ my $inliner = CSS::Inliner->new;
 
  $inliner->read_file({ filename => 'myfile.html' });
 

From d9b2bde4ed9c3ba433ec8b81dfc51ab39841aa3d Mon Sep 17 00:00:00 2001
From: Graham Ollis <plicease@cpan.org>
Date: Fri, 22 Nov 2019 13:27:48 -0700
Subject: [PATCH 3/4] more code in POD

---
 lib/CSS/Inliner/Parser.pm | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/lib/CSS/Inliner/Parser.pm b/lib/CSS/Inliner/Parser.pm
index 814fe87..1e39ba6 100644
--- a/lib/CSS/Inliner/Parser.pm
+++ b/lib/CSS/Inliner/Parser.pm
@@ -8,12 +8,12 @@
 
 package CSS::Inliner::Parser;
 
-use strict;
-use warnings;
+ use strict;
+ use warnings;
 
-use Carp;
+ use Carp;
 
-use Storable qw(dclone);
+ use Storable qw(dclone);
 
 =pod
 
@@ -117,7 +117,7 @@ necessary for later manipulation.
 This method requires you to pass in a params hash that contains a
 filename argument. For example:
 
-$self->read_file({ filename => 'myfile.css' });
+ $self->read_file({ filename => 'myfile.css' });
 
 =cut
 
@@ -151,7 +151,7 @@ rules themselves should apply as expected.
 This method requires you to pass in a params hash that contains scalar
 css data. For example:
 
-$self->read({ css => $css });
+ $self->read({ css => $css });
 
 =cut
 
@@ -267,7 +267,7 @@ Write the parsed and manipulated CSS out to a file parameter
 This method requires you to pass in a params hash that contains a
 filename argument. For example:
 
-$self->write_file({ filename => 'myfile.css' });
+ $self->write_file({ filename => 'myfile.css' });
 
 =cut
 
@@ -408,7 +408,8 @@ relevant when handling earlier versions of the standard. These rules have a prel
 with a data block consisting of various rule declarations.
 
 Adding a qualified rule is trivial, for example:
-$self->add_qualified_rule({ selector => 'p > a', block => 'color: blue;' });
+
+ $self->add_qualified_rule({ selector => 'p > a', block => 'color: blue;' });
 
 =cut
 
@@ -441,7 +442,8 @@ containing a rule type, prelude and associated data block. The standard is evolv
 examples, but these rules always start with @.
 
 At rules are a little more complex, an example:
-$self->add_at_rule({ type => '@media', prelude => 'print', block => 'body { font-size: 10pt; }' });
+
+ $self->add_at_rule({ type => '@media', prelude => 'print', block => 'body { font-size: 10pt; }' });
 
 =cut
 

From 6bd14a4e5dc851845662a72a3b3323e7d670414b Mon Sep 17 00:00:00 2001
From: Graham Ollis <plicease@cpan.org>
Date: Tue, 31 Dec 2019 21:52:12 -0700
Subject: [PATCH 4/4] undo accidental indent of actual code

---
 lib/CSS/Inliner/Parser.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/CSS/Inliner/Parser.pm b/lib/CSS/Inliner/Parser.pm
index 1e39ba6..362fa53 100644
--- a/lib/CSS/Inliner/Parser.pm
+++ b/lib/CSS/Inliner/Parser.pm
@@ -8,12 +8,12 @@
 
 package CSS::Inliner::Parser;
 
- use strict;
- use warnings;
+use strict;
+use warnings;
 
- use Carp;
+use Carp;
 
- use Storable qw(dclone);
+use Storable qw(dclone);
 
 =pod