From c1fd646f731b7f78a9ff91bedf32d842d90f9c26 Mon Sep 17 00:00:00 2001
From: Gabor Szabo <gabor@szabgab.com>
Date: Tue, 19 May 2015 17:00:23 +0300
Subject: [PATCH] move Pod::Tree::BitBucket and Pod::Tree::StrStream to
 separate files

---
 lib/Pod/Tree/BitBucket.pm |  9 ++++++++
 lib/Pod/Tree/HTML.pm      | 44 ++++++---------------------------------
 lib/Pod/Tree/StrStream.pm | 30 ++++++++++++++++++++++++++
 3 files changed, 45 insertions(+), 38 deletions(-)
 create mode 100644 lib/Pod/Tree/BitBucket.pm
 create mode 100644 lib/Pod/Tree/StrStream.pm

diff --git a/lib/Pod/Tree/BitBucket.pm b/lib/Pod/Tree/BitBucket.pm
new file mode 100644
index 0000000..89d1b11
--- /dev/null
+++ b/lib/Pod/Tree/BitBucket.pm
@@ -0,0 +1,9 @@
+package Pod::Tree::BitBucket;
+use strict;
+use warnings;
+
+sub new { bless {}, shift }
+sub AUTOLOAD {shift}
+
+1;
+
diff --git a/lib/Pod/Tree/HTML.pm b/lib/Pod/Tree/HTML.pm
index 959d4cb..a430773 100644
--- a/lib/Pod/Tree/HTML.pm
+++ b/lib/Pod/Tree/HTML.pm
@@ -1,3 +1,7 @@
+package Pod::Tree::HTML;
+use strict;
+use warnings;
+
 # Copyright (c) 1999-2007 by Steven McDougall.  This module is free
 # software; you can redistribute it and/or modify it under the same
 # terms as Perl itself.
@@ -8,44 +12,8 @@ use IO::String;
 use Pod::Tree;
 use Text::Template;
 
-package Pod::Tree::BitBucket;
-use strict;
-use warnings;
-
-sub new { bless {}, shift }
-sub AUTOLOAD {shift}
-
-package Pod::Tree::StrStream;
-use strict;
-use warnings;
-
-sub new {
-	my ( $class, $ref ) = @_;
-
-	if ($ref) {
-		return bless $ref, $class;
-	}
-	else {
-		my $st = '';
-		return bless \$st, $class;
-	}
-}
-
-sub print {
-	my $st = shift;
-	$$st .= join( '', @_ );
-}
-
-sub get {
-	my $st = shift;
-	my $s  = $$st;
-	$$st = '';
-	$s;
-}
-
-package Pod::Tree::HTML;
-use strict;
-use warnings;
+use Pod::Tree::BitBucket;
+use Pod::Tree::StrStream;
 
 use constant BGCOLOR => '#ffffff';
 use constant TEXT    => '#000000';
diff --git a/lib/Pod/Tree/StrStream.pm b/lib/Pod/Tree/StrStream.pm
new file mode 100644
index 0000000..e886809
--- /dev/null
+++ b/lib/Pod/Tree/StrStream.pm
@@ -0,0 +1,30 @@
+package Pod::Tree::StrStream;
+use strict;
+use warnings;
+
+sub new {
+	my ( $class, $ref ) = @_;
+
+	if ($ref) {
+		return bless $ref, $class;
+	}
+	else {
+		my $st = '';
+		return bless \$st, $class;
+	}
+}
+
+sub print {
+	my $st = shift;
+	$$st .= join( '', @_ );
+}
+
+sub get {
+	my $st = shift;
+	my $s  = $$st;
+	$$st = '';
+	$s;
+}
+
+1;
+