From a18881f769ffcc013318902835506ba04161d149 Mon Sep 17 00:00:00 2001
From: Zubrikhin Alexey <zubrihin@v-lazer.com>
Date: Wed, 29 Apr 2015 16:15:47 +1000
Subject: [PATCH] * renamed module

---
 lib/Text/{Dokuwiki.pm => Dokuwiki/Parser.pm} | 4 +---
 t/{parse-include.t => parser-include.t}      | 6 +++---
 t/{parse-lists.t => parser-lists.t}          | 6 +++---
 t/{parse-table.t => parser-table.t}          | 6 +++---
 t/{parse-text-1.t => parser-text-1.t}        | 6 +++---
 5 files changed, 13 insertions(+), 15 deletions(-)
 rename lib/Text/{Dokuwiki.pm => Dokuwiki/Parser.pm} (99%)
 rename t/{parse-include.t => parser-include.t} (90%)
 rename t/{parse-lists.t => parser-lists.t} (88%)
 rename t/{parse-table.t => parser-table.t} (92%)
 rename t/{parse-text-1.t => parser-text-1.t} (82%)

diff --git a/lib/Text/Dokuwiki.pm b/lib/Text/Dokuwiki/Parser.pm
similarity index 99%
rename from lib/Text/Dokuwiki.pm
rename to lib/Text/Dokuwiki/Parser.pm
index d3ca9dc..5c26425 100644
--- a/lib/Text/Dokuwiki.pm
+++ b/lib/Text/Dokuwiki/Parser.pm
@@ -1,12 +1,10 @@
-package Text::Dokuwiki;
+package Text::Dokuwiki::Parser;
 
 use strict;
 use warnings;
 use feature qw/ switch /;
 use utf8;
 
-use Data::Dumper;
-
 sub new {
   my ($class) = @_;
   my $self = {};
diff --git a/t/parse-include.t b/t/parser-include.t
similarity index 90%
rename from t/parse-include.t
rename to t/parser-include.t
index 4a3b969..44e87de 100644
--- a/t/parse-include.t
+++ b/t/parser-include.t
@@ -5,10 +5,10 @@ use warnings;
 use utf8;
 
 use Test::More tests => 8;
-use Text::Dokuwiki;
+use Text::Dokuwiki::Parser;
 
-my $dw = Text::Dokuwiki->new;
-isa_ok($dw, 'Text::Dokuwiki');
+my $dw = Text::Dokuwiki::Parser->new;
+isa_ok($dw, 'Text::Dokuwiki::Parser');
 
 my $elem = $dw->_parse_include('{{image.png}}');
 is(ref $elem, 'ARRAY');
diff --git a/t/parse-lists.t b/t/parser-lists.t
similarity index 88%
rename from t/parse-lists.t
rename to t/parser-lists.t
index fc26ca8..c417dab 100644
--- a/t/parse-lists.t
+++ b/t/parser-lists.t
@@ -5,7 +5,7 @@ use warnings;
 use utf8;
 
 use Test::More tests => 3;
-use Text::Dokuwiki;
+use Text::Dokuwiki::Parser;
 
 my @lines = split /\n/, <<EOF;
   * level1 item1
@@ -18,8 +18,8 @@ my @lines = split /\n/, <<EOF;
   - level1 of 2nd list, item2
 EOF
 
-my $dw = Text::Dokuwiki->new;
-isa_ok($dw, 'Text::Dokuwiki');
+my $dw = Text::Dokuwiki::Parser->new;
+isa_ok($dw, 'Text::Dokuwiki::Parser');
 my @lists = $dw->_parse_list([ @lines ]);
 
 is (scalar @lists, 2);
diff --git a/t/parse-table.t b/t/parser-table.t
similarity index 92%
rename from t/parse-table.t
rename to t/parser-table.t
index a175176..3c22483 100644
--- a/t/parse-table.t
+++ b/t/parser-table.t
@@ -5,7 +5,7 @@ use warnings;
 use utf8;
 
 use Test::More tests => 3;
-use Text::Dokuwiki;
+use Text::Dokuwiki::Parser;
 
 my @lines = split /\n/, <<EOF;
 | table ^ head1 ^ head2 ^  sum |
@@ -15,8 +15,8 @@ my @lines = split /\n/, <<EOF;
 ^ data4 | 4-1   |  4-2  | :::  |
 EOF
 
-my $dw = Text::Dokuwiki->new;
-isa_ok($dw, 'Text::Dokuwiki');
+my $dw = Text::Dokuwiki::Parser->new;
+isa_ok($dw, 'Text::Dokuwiki::Parser');
 
 my $tree = $dw->_parse_table([ @lines ]);
 is(ref $tree, 'ARRAY');
diff --git a/t/parse-text-1.t b/t/parser-text-1.t
similarity index 82%
rename from t/parse-text-1.t
rename to t/parser-text-1.t
index 249757c..aa067a3 100644
--- a/t/parse-text-1.t
+++ b/t/parser-text-1.t
@@ -5,10 +5,10 @@ use warnings;
 use utf8;
 
 use Test::More tests => 3;
-use Text::Dokuwiki;
+use Text::Dokuwiki::Parser;
 
-my $dw = Text::Dokuwiki->new;
-isa_ok($dw, 'Text::Dokuwiki');
+my $dw = Text::Dokuwiki::Parser->new;
+isa_ok($dw, 'Text::Dokuwiki::Parser');
 
 my $text = "This is text with //inline **formatting**// rules [[http://site.com|and]] links.";
 my $tree = [ $dw->_parse_text($text) ];