NAME
    Acme::Devel::Hide::Tiny - Hide a perl module for testing, in one
    statement

VERSION
    version 0.001

SYNOPSIS
        # in 'foo.t', assume we want to hide Cpanel::JSON::XS

        # hide Cpanel::JSON::XS -> Cpanel/JSON/XS.pm
        use lib map {
            my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
            sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
        } qw{Cpanel/JSON/XS.pm};

DESCRIPTION
    The Devel::Hide and Test::Without::Module modules are very helpful
    development tools. Unfortunately, using them in your .t files adds a
    test dependency. Maybe you don't want to do that.

    Instead, you can use the one-liner from the SYNOPSIS above, which is an
    extremely stripped down version of Devel::Hide. NOTE: this method only
    works on Perl v5.8.1 and later.

    Here is a more verbose, commented version of it:

        # 'lib' adds its arguments to the front of @INC
        use lib

            # add one coderef per path to hide
            map {
                # create lexicals for module and fake module code; fake module
                # code dies with the error message we want
                my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );

                # construct and return a closure that provides the fake module
                # code only for the module path to hide
                sub {

                    # return if not the path to hide; perl checks rest of @INC
                    return unless $_[1] eq $m;

                    # return a file handle to the fake module code
                    open my $fh, "<", \$c; return $fh
                }
            }
        
            # input to map is a list module names, converted to paths;
            qw{Cpanel/JSON/XS.pm JSON/XS.pm}

        ; # end of 'use lib' statement

    When perl sees a coderef in @INC, it gives the coderef a chance to
    provide the source code of that module. In this case, if the path is the
    one we want to hide, it returns a handle to source code that dies with
    the message we want and perl won't continue looking at @<INC> to find
    the real module source. The module is hidden and dies with a message
    similar to the one that would happen if it weren't installed.

SUPPORT
  Bugs / Feature Requests
    Please report any bugs or feature requests through the issue tracker at
    <https://github.com/dagolden/Acme-Devel-Hide-Tiny/issues>. You will be
    notified automatically of any progress on your issue.

  Source Code
    This is open source software. The code repository is available for
    public review and contribution under the terms of the license.

    <https://github.com/dagolden/Acme-Devel-Hide-Tiny>

      git clone https://github.com/dagolden/Acme-Devel-Hide-Tiny.git

AUTHOR
    David Golden <dagolden@cpan.org>

COPYRIGHT AND LICENSE
    This software is Copyright (c) 2016 by David Golden.

    This is free software, licensed under:

      The Apache License, Version 2.0, January 2004