move Pod::Tree::BitBucket and Pod::Tree::StrStream to separate files

manwar · May 19, 2015 · c1fd646 · c1fd646
1 parent 9e4cc59
commit c1fd646
Show file tree

Hide file tree

Showing 3 changed files with 45 additions and 38 deletions.
diff --git a/lib/Pod/Tree/BitBucket.pm 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
@@ -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
@@ -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;
+