1use 5.008001;
2use strict;
3use warnings;
4use Test::More 0.96;
5
6# Tiny equivalent of Devel::Hide
7# Tiny equivalent of Devel::Hide
8use lib map {
9    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
10    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
11} qw{Unicode/UTF8.pm};
12
13note "Hiding Unicode::UTF8";
14
15do "./t/input_output.t" or die $@ || $!;
16
17#
18# This file is part of Path-Tiny
19#
20# This software is Copyright (c) 2014 by David Golden.
21#
22# This is free software, licensed under:
23#
24#   The Apache License, Version 2.0, January 2004
25#
26