Convert to Dist::Zilla

CHANGES → Changes

@@ -1,3 +1,5 @@
+{{$NEXT}}
+
 0.50 Fri  6 Aug 17:52:26 BST 2021
 * Fix number of tests to skip
   (Michal Josef Špaček)

dist.ini

@@ -0,0 +1,40 @@
+name    = Term-UI
+author  = Chris Williams  chris@bingosnet.co.uk
+license = Perl_5
+copyright_holder = Chris Williams
+copyright_year   = 2021
+
+version = 0.50
+
+[@Basic]
+
+[AutoPrereqs]
+[PodSyntaxTests]
+[PodCoverageTests]
+
+[PkgVersion]
+die_on_existing_version = 1
+
+[PruneFiles]
+match = ^dist.ini
+match = ^to_do.txt
+match = ~$
+match = ^todo.org
+
+;[ModuleBuild]
+
+[NextRelease]
+time_zone = UTC
+
+[PodVersion]
+
+[MetaJSON]
+
+[Test::Kwalitee]
+;skiptest = has_license_in_source_file
+
+[MinimumPerl]
+
+[MetaProvides::Package]
+
+[DualLife]

lib/Term/UI.pm

@@ -1,9 +1,10 @@
 package Term::UI;
-$Term::UI::VERSION = '0.50';
+
 
 use if $] > 5.017, 'deprecate';
 
 use strict;
+use utf8;
 use warnings;
 
 use Carp;
@@ -20,6 +21,8 @@ push @Term::ReadLine::Stub::ISA, __PACKAGE__
         unless grep { $_ eq __PACKAGE__ } @Term::ReadLine::Stub::ISA;
 
 
+=encoding utf8
+
 =pod
 
 =head1 NAME

lib/Term/UI/History.pm

@@ -1,7 +1,8 @@
 package Term::UI::History;
-$Term::UI::History::VERSION = '0.50';
+
 
 use strict;
+use utf8;
 use warnings;
 
 use parent
@@ -16,6 +17,8 @@ our @EXPORT = qw[ history ];
 
 my $log = Log::Message->new();
 
+=encoding utf8
+
 =pod
 
 =head1 NAME
@@ -68,6 +71,12 @@ sub history {
            );
 }
 
+=head2 history_as_string()
+
+Retrieve the entire session as a printable string.
+
+=cut
+
 sub history_as_string {
     my $class = shift;
 

t/00_load.t

@@ -1,14 +1,9 @@
 #!/usr/bin/env perl
 
 use strict;
+use utf8;
 use warnings;
 
-BEGIN {
-    chdir 't' if -d 't';
-    use File::Spec;
-    use lib File::Spec->catdir( qw[.. lib] );
-}
-
 use Test::More 'tests' => 1;
 
 my $Class = 'Term::UI';

t/01_history.t

@@ -1,14 +1,9 @@
 #!/usr/bin/env perl
 
 use strict;
+use utf8;
 use warnings;
 
-BEGIN {
-    chdir 't' if -d 't';
-    use File::Spec;
-    use lib File::Spec->catdir( qw[.. lib] );
-}
-
 use Test::More 'no_plan';
 
 my $Class   = 'Term::UI::History';

t/02_ui.t

@@ -3,10 +3,10 @@
 ### Term::UI test suite ###
 
 use strict;
+use utf8;
 use warnings;
 
-use lib qw[../lib lib];
-use Test::More 'tests' => 23;
+use Test::More;
 use Term::ReadLine ();
 
 use_ok( 'Term::UI' );
@@ -194,3 +194,5 @@ my $tmpl = {
 }
 
 } # End SKIP block
+
+done_testing();