From 49bf49b99a7ffb12b68035f096c160bc51e48775 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Thu, 21 Nov 2019 09:22:33 +0100
Subject: [PATCH] Use system Object::HashBase
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 Makefile.PL                 | 1 +
 lib/Term/Table.pm           | 2 +-
 lib/Term/Table/Cell.pm      | 2 +-
 lib/Term/Table/CellStack.pm | 2 +-
 lib/Term/Table/LineBreak.pm | 2 +-
 5 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 44de066..4d4c7d4 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -20,6 +20,7 @@ my %WriteMakefileArgs = (
     "Carp" => 0,
     "Importer" => "0.024",
     "List::Util" => 0,
+    "Object::HashBase" => "0.008",
     "Scalar::Util" => 0
   },
   "TEST_REQUIRES" => {
diff --git a/lib/Term/Table.pm b/lib/Term/Table.pm
index 578eba8..3190bcd 100644
--- a/lib/Term/Table.pm
+++ b/lib/Term/Table.pm
@@ -11,7 +11,7 @@ use Scalar::Util qw/blessed/;
 use List::Util qw/max sum/;
 use Carp qw/croak carp/;
 
-use Term::Table::HashBase qw/rows _columns collapse max_width mark_tail sanitize show_header auto_columns no_collapse header allow_overflow pad/;
+use Object::HashBase 0.008 qw/rows _columns collapse max_width mark_tail sanitize show_header auto_columns no_collapse header allow_overflow pad/;
 
 sub BORDER_SIZE()   { 4 }    # '| ' and ' |' borders
 sub DIV_SIZE()      { 3 }    # ' | ' column delimiter
diff --git a/lib/Term/Table/Cell.pm b/lib/Term/Table/Cell.pm
index 978ef06..10d2b70 100644
--- a/lib/Term/Table/Cell.pm
+++ b/lib/Term/Table/Cell.pm
@@ -9,7 +9,7 @@ use Term::Table::Util qw/uni_length/;
 
 use List::Util qw/sum/;
 
-use Term::Table::HashBase qw/value border_left border_right _break _widths border_color value_color reset_color/;
+use Object::HashBase 0.008 qw/value border_left border_right _break _widths border_color value_color reset_color/;
 
 my %CHAR_MAP = (
     # Special case, \n should render as \n, but also actually do the newline thing
diff --git a/lib/Term/Table/CellStack.pm b/lib/Term/Table/CellStack.pm
index 7b99f6a..a948d10 100644
--- a/lib/Term/Table/CellStack.pm
+++ b/lib/Term/Table/CellStack.pm
@@ -4,7 +4,7 @@ use warnings;
 
 our $VERSION = '0.015';
 
-use Term::Table::HashBase qw/-cells -idx/;
+use Object::HashBase 0.008 qw/-cells -idx/;
 
 use List::Util qw/max/;
 
diff --git a/lib/Term/Table/LineBreak.pm b/lib/Term/Table/LineBreak.pm
index dc70ca3..ef95f7e 100644
--- a/lib/Term/Table/LineBreak.pm
+++ b/lib/Term/Table/LineBreak.pm
@@ -8,7 +8,7 @@ use Carp qw/croak/;
 use Scalar::Util qw/blessed/;
 use Term::Table::Util qw/uni_length/;
 
-use Term::Table::HashBase qw/string gcstring _len _parts idx/;
+use Object::HashBase 0.008 qw/string gcstring _len _parts idx/;
 
 sub init {
     my $self = shift;
-- 
2.21.0